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AS-1000 

o micro que cresce com voce. 
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CARACTERISTICAS TECINMCAS: 

* 16 K bytes de mniwrla In (date 

* Expansao Intern a para 32 e 
48 Kbytes 

* 8 K bytes de metnorla EPRQM 

* MirrrtnroceiMdOr Z-80 A 

i de membMnA com 
*cao mp«nJ« positive 

* 40 teclas e 1 54 f u ncoes 

» Bask e Hrtguaoem de maquJrta 

* Video normal ou re werso 

* Saida pjM qualquer im pressors 

* Manlpula ate quatro cassetes 
com geracao de arqufvo 

* Modem 
-Joystick 

1 eedFUe 

•nte de allmentacao 
embutida {11Qj'220 voftsj 

* Nrvtl de leftura de gravacac 
autofliatlco 



O Microcomputador AS-1000 
e utna otflma escolha para quern est a 
iniciando na ciencia da computacao. Sens 
recunos de programacao e sua contepcao 
modular, porem, perm item que ele 
o acompanhe ate as aplicacoes mais 
sofisticadas. 

O AS-1000 ja nasce com uma biblioteca de 
milhares de programas para jogos, 
adminJstracao domestica, aplicacoes 
comerciais e profissionais. 

O AS-1000 e fabricado com a quaffdade 
EN GE BRAS e garantJdo por urn ana 

Entre na era da Inforrnatfca com a escolha 
cert a, AS-1000, o seu micro pessoal. 

Escreva-nos. »ua correspondencta n^o tfcara urn reipoita. 

[ ENGEBRAS 

— ^-J ELETRONICA E INFOftMATlCA LTOA. 
Rua do Russel, 450 - %? andar 
<ep 22210 Rio de Janeiro - RJ 

Tel,:(02Tj 20S-4B98 




• RAMCARD • SOFTCARD • VlDEOTERM • SOFTVlDEO SW • PROGRAMMER • PROTOCARD • INTF. DISKS 
• INFT PRINT * SATURN 128K RAM, • SATURN 64K RAM, * SATURN 32K RAM, * RAN A GUARTETO * MICRGMODEM 
• MfCROBUFFER II • MICROCONVERTER « ■ MKIRO VOZ II ■ ULTRATERM ■ ALF 8068 CARD 
■ A800 DISK CONT ■ MULTIFUNCTION CARD 



MICRQCRAFT MICRQCOMPUTADORES LTOA. 
ADMINl3TRA£AO E VENDAS; AV. BRIG FARIA LIMA, 1 .664 - 3? ANQAR - O 316 
FONES {01 1} 212-6286 E 815-6723 - SAO PAULO - SP - BRASIL 
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O Cobra 305 

quertrabalharna 

suaempresa. 



Experiencia 

anterior nas seguintes 

fungoes: 



Comas a Pagar para Cooperates 
Contasa Receber 

Contasa Receoer com, 
Controle de Consratos 

Contasa Receber Industrial 
com Emissaode Duplicates 

Contas a Receoer para Dis- 
tribuidoresdeMedicarnentos 

Con'as a Receber para Coo - 

perativas 

Contas a Receber - Radiotogia 

Controle de Condom inio e 
Aiugu£is 

Controle de Gonsorcios 

Controle de Contributes 

Controls de Estoque 

Console deEsEoque 
Comercial 

Controls de Estoque 
paraComerciode 

Pneus 

Controle de 
Estoque de Roupas 




Administracao e Controle de Repre- 
sentacao de Terceiros 

Administragao deAfugueis 

Administracao de Condominios 

Administrate de Construtoras 

Administracao de Loteamentos e 
Imoveis 

Administracao de Transportadoras 

Administracao Hospitalar 

Apuragao de Gusto por Curva de Ser- 
vices UNIMED 

Armazens Gerais 

Arrecadacao Tributaria 

Ativo Rxo 

Ativo Fixo com Correcao Anual em 
Cruzeiros, D6lareseORTNs 

Ativo Fixo com Correcao Mensal, Tri- 
mestral e Semestral em ORTNs 

Business Cafe 

Cadastramento e Gustos de Equipa- 
mentos 

Cadastramento 
Generico 

CartSode 
Credito 

Cartorios 




Cobranca 

Consorcb 

Conta-Cor rente e Contabilidade 
Integrada 

Contabilidade 

Contabilidade com Fechamento Au 
tomaticoemCruzei rose Mares 

ContabilidadecomMultivolume 

Contabilidade com Orgamento 

Contabilidade com Resuitados 
Operaeionais 

Contabilidade Comercial 

Contabilidade Especial 

Contabilidade Geral 

Contabrtidade Geral para Pequenas 
Empresas 

Contabisidade Gerencial 

Contabilidade para Bureau 

Contabilidade paraCooperahvas 

Contabilidade para Entidadesde Pre- 
videncia Privada 
Contabilidade paraEscritdrios 

Contabilidade para 
UsinadeAgucar 

Contabilidade 
Publica d 

Con'.asaPagar 

Contas a Pagar para 
Construtoras 




Controle de Estoque -Distn- 
buidores oeMedicamentos 

Controle de Estoque-Revende - 
dores 

Controle de Estoque-Varep 

Controle de FoTneamento de 
Cana por Peso 

Controle de Produtsvidade de Cana 

ControtedeMatenais 

Controle dePedidos 

Controle de 

Custode 

Obras 




Controle de Recebimen- 
toSindical 

Controiede 

Registro 

Academico 

Conrrole 
deTaxasdeAgua 
eEsgoto 

Controle de Tit uios 
e Protestos ■ 
Cartbrio 

Controle de Trafe- 
gos - Faturamento 
e Estatisticade 
^Linhas 

Controle do Ativo 

Controle Financeiro Escolar 

Controle Imobitiano 

Controle Industrial para Montadoras 
porCompra 

Conirote Monetary de Balances em 

ORTN 

Controle para Distribuidora de Gas 
Engarrafado 

Corregao'Deoreciacao do Ativo 

Correcao Monetaria dos Balances 

CorretorasdeSeguro 

Crediario 

Gusto Industrial de Racoes 

Despacho Aduanetro 

Distribuidores: Compras, Contasa 
Pagar. Estoque, Faturamento. Contas 
a Receber e Estatistica de Vendas 

Distnbuidoras de Bebi das (Fatura- 
mento. Controle e Estoque) 

Editex - Processarnento de Texto 

Emissaode Games 

Emissao do Nlotas Promissdrias. Bor- 
deros. Cartas de Debito 

Estoque para Industna e Comerao 

Estoque para Cooperatrvas 

Etiqueta Farmaceutica 

Faturamento para Gomercio e 
ndustna 

Faturamento para Comercro, 
Industna e Services 

: aturamento e Controle de 

Vendas 

Faturamento e Distnbui- 
ao de Rrodutos Farma- 
ceutcos 




Faturamento de Cana 



Faturamento Industrial 

Faturamento para 
Cooperatives 

Faturamento. Esto 
que e Lista de Produgao 

Faturamento. Estoque e Vendas 
(ComercioVareiista) 

Faturamento. Livros Fiscais e Rela- 
tbnosGerenciais 

FoUnade Pagamento 

Folhade Pagamento Geral 

Folha de Pag amento Geral oara 
Comercio, Industna tServtcos 

Folha de Pagamento para 
Bureau 

Folha de Pagamento Mens 
e Quinzena) 

FoJba de Pagamento Semanai 

Foiha de Pagamento Semanai para 
Construtores 

Foihia de Pagamento para Empresas 
deOnibus 

Foha de Pagamento Semanai para 
UsmasdeAgucar 

Folha de Pagamento Semanai para 
Usinas de Alcool 

Gestae dePessoal 

Gest^o de Vendas Integrada e Estoque 

Gestao Rnanceira 

Gestae Hipotecaria 

fnventario para Editoras 

IPTU 

Livros Fiscais 

Livros Fiscais de Entrada 

Livros Fiscais deSaida 

Livros Fiscais paraBureai 

Livros Fiscais para 

Cooperativas 

MalaDireta 

Mala Direta, Assmantes 

e Reemboiso Postal 

Orgamento e Controle 

de Obras 

Orgamento 

Patrimonial 

Pedidos. Estoque. 
Faturamento e Contas 
a Receber 

Pesquisa Salarial 
Planepmentoe 
Controle de Produgao 

Projegao de Obras 



Ragao de Gusto Minimo 
f Sistema 

Operacionai 
Vector 

Transporte. 

Estesprogramas 
aplicativos do Cobra 305 sao desen- 

uqividos e garantidos pelas,seguintes 
software houses: PRO-LOGOS, 

GTS.APL. DATA 100, 

CONSIST. PIONBRA. SOFT. 

COMPUTEL.DATAMEC. 

PLACOMJMS 

COMPACT. IMPLArvfTA, 

DATA PLAN. INFEL. 

INFORCOMP.NM. 

^t FLUXO. APRODATA, MPN, 

SIMICRON. DATAMED.SUPLIUS. 

S^MR-APD, GDA, DATA- ELO. COPPE. 

BACKUP, SICOM. MIS. MINI-MICRO 

e JOTO. 

Para maiores informagoes soore o 
Cobra 305, Hgue para 
Riode JaneirO'Tel,. (021 ) 265-7552 
S. Paulo-TeL (01 1 ) B26-8555 
Brasilia -Tel.. (061) 273-1060 
B.Horizonte-Tel , (031)225-4955 
Curitiba - Tel. : (041 ) 234-0295 
RonanOpoliS'Tel. (046)222-0583 
Porto Alegre- Tel.. (0512)32-7111 
Salvador -Tel: (071) 241 -5355 
Recife -Tel .(081)222-0311 
Fortaleza - Tel. : (085) 224-3255 





Cobra 305. micro prof issional 



Datalifetem 
resposta para tudo. 




Quando o disquete e Datalife, 
voce obtem todas as respostas que 
preclsa. Seja para controles c 
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deeisoes empresariais, assume 
pessoais e profissionais ou lazer 
com microcomputador, semprc ha 
urn modelo adequado de disqucte a 
sua disposicao, 

Sao os mais vendidos no mundo 
c produzidos pela empresa que mais 
investe em pesquisa e 
desenvolvimeruo de produtos, lider 
mundial na tecnologia de mi'dia 
magnetica fkxivel. 



Com os Disqueies Datalife a 
informacao aparece clara e exata. 

E a Yea or acrescenta mais duas 
qualidades: a garantia do melhor 
atendimento e o servico muito agil 
doSOS-CPD*. Quando voce 
precisa, a Vector entrega. 
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\ferbatim 
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Ano HE 

N°30 
Marco 19*4 



F&D Nli&mmmn EMrdnfcro S.A, 

Biblioif cu 



/Micro 




S13MARIO 



1 J APRENDA INGLES COM 
1*# ANIMALS — Voce ja viu 

algum anima] falando Ingles? 
Claro que nao, Mas voce pod era 
ve-los ajudando a ensinar 

Ingles at raves deste programa 
adap*Mto peLa-Cukwa l*>eles» 
para a linha Sinclair. 

*M DESCl BRA O 
LL FORM ATO DE I MA 
FITA CASSETE — "Elemental, 
meu caro Watson", diria 
Sherlock Holmes, mas com este 
utilitario desenvolvido por 
Jofto Henrique Volpini Mat to s 
voce tambem sera capaz de 
descobrir rapidamenlc a 
formats cao de qualquer fit a 
casseie gravada nos micros 
TRS-80 
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prefixo 

255 

bytes 

00 



A5 



12 

28 
30 

32 
36 

48 
50 

62 



TUTOR MATEMAT1CO — Programa de 
Paulo Sergio Goncalves, 

ESTL'DE FfSICA COM O MICRO - 
Programa de Jorge Santa na de Oliveira. 

NA TR1LHA DOS ERROS DE 
PROGRAMACAO — Artigo de Roberto 
Quito de SarrfAnna. 

INTELIG^NOA ARTIFICIAL - II — 

Artigo de Antonio Costa. 

PACOTAO DE HARDWARE PARA OS 
SINCLAIR — Artigos de Marcelo Shirama 
Lancarotte, Andre Koch Zielaskoe Humberto 
Kazuo Nakashima. 

UM REM DE INFINITOS BYTES — 

Programa dc Daniel Hendrick. 

MICROCOMPUTADOR NA SALA DE 

ALILA — Reportagem sobre o uso de 
micros em colegiosesobreo software existente 
no mercado, 

ACIDOS E BASES: ANALISE EM 
GRAFICOS Programa de Rodrigo 
Leygue-Alba c Mauro Mandelli 








Sjy A lNICIALIZAC^O DO 
OL MONITOR NO CP-500 + 

De que instrucoescompoe-se 
o software basico deste 
equipamento? De forma 
simples e detalhada, Mauricio 
Baduy adentra o monitor 
residentc rio CP-500, mostrando 
o que acontece na UCP quando 
damos partida no micro. 

£f\ JOGANDO COM AS 
OU PALAVRAS - Provando 
que e capaz de formar mais 
palavras que seu adversario, 
a crianca desenvolve a arte de 
soletrar. Neste programa de 
Heber Jorge da Silva para a 
linha TRS-80, tambem osadultos 
poderlo demonstrar seus dotes 
linguist ieos. 



^C O MICRO NO SHACK DO 



RADIOAMADOR — Artigo dc Direeu 
Pivatto da Silva. 



£*: RAIZQUADRADATOMICROENSINA- 

OO Programa de Francisco Tropeano. 

rj^y UMA Al LA SOBRE CIRCU1TOS 

/ J* ELF^TRICOS — Programa de Simao Pedro P, 
Marinho. 

n/: 1/5, 2/3, 7/12... A TELA PARA 
/O APRENDER FRAMES — Programa de 
Heber Jorge da Silva. 

78 CLiRSO DE ASSEMBLER — XIV 



82 



DESENHE EM PERSPECTIVA - 

Programa de Jorge Rezende Dantas, 



DC H1STOGRAMA: EXAMINE 
&D RESULT ADOS — Programa de Luis Peres 
Azevedo. 

Q r BRONCA CIBERNF.TICA — Contode Luiz 

OO Bessa. 



sec;0es 

8 EDITORIAL 
10 CARTAS 
16 XADREZ 



18 S1DRA 
24 BITS 
42 L1VROS 

44 cu rsos 



46 MS RESPONDE 

68 CI. ASS1 F1C A DOS 

69 MENSACEM DE ERRO 

70 DICAS 
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Como esta edicao de MICRO 
SI STEM AS esta de alguma 
forma ligada a volta as aulas, 
com alguns programas bastan- 
te interessantes e educativos para as cri- 
ancas, resolvemos fazer a priori urn pe- 
queno levantamento do que estaria dis~ 
ponivel no mercado na area de software 
diddtico. Mesmo procurando nao recair 
num otimismo exagerado, adiando que 
iriamos encontrar toda a sorte de bone- 
cos e bichinhos ensinando as nossas cri- 
ancas os misterios da lingua portuguem, 
devo admitir que esperdvamos bem mais 
do que foi encontrado. 

Realmente, trocando em miudos, 
muito pouca coisa esta disponivel nas 
lojas, e uma fraca meia duzia de titidos 
parece espelhar toda a criatividade que 
nossos produ tores de software puderam 
ter. Ou pior, espelha ainda o pouco que 
e suficiente para suprir a demanda insi- 
pida de nosso mercado com relacao a 
pacotes educacionais. 

£ um verdadeiro jogo de empurra, 
sem nenhuma razao de ser, pois melhor 
seria admitir a falta de interesse, por 
nao ser um bom negocio. Os lojistas di- 
zem Mo ter para venda pois nao existem 



programas disponiveis, alem de reconhe- 
cerem a fraquissima demanda (alguns 
quantificaram "uma media de duaspro- 
curas por mes"} do consumidor final. A 
maioria das software-houses, por sua 
vez, explica a escassez de progranuis 
educativos no mercado pela absoluta fal- 
ta de procura por parte dos consumido- 
res e dos revendedores e lojas, seus prin- 
cipais client es. De mais de um represen- 
tante de soft-houses ouvimos a expres- 
sao "mau negocio ". 

Enquanto isso, existent estabeleci- 
mentos para os quais a aplicagSo do mi- 
crocomputador na area diddtica pode 
vir a ser, e de fato jd vem sendo, um 
"bom negocio". Sao os colegios, princi- 
palmente os de segundo grau, que vem 
utilizando este novo instrumento de 
apoio ao ensino, muitas vezes com bas- 
tante desembaraco. 

Talvez ate pela falta de outras opcoes 
no mercado, a maioria dos colegios que 
rem participacao mais ativa neste sen- 
tido criou equipes proprias para o desen- 
volvimento de seus programas. Geral- 
mente formadas por professores da esco- 
la, algumas vezes contando com o apoio 
de analistas contratados, estas equipes 



buscam uma solucdo nacional mais vid- 
vel do que depender de um mercado es- 
casso e com produ tos, em sua maior par- 
te, element ares demais. Jd outros cole- 
gios, embora nao esquecendo a nova 
"revolucao do ensino ", optaram por so- 
lucoes mais simples, como somente a 
insercdo do BASIC em sua pauta curri- 
cular, livrando-se com isto da dor de ca- 
beca de procurar definir os objetivos da 
aplicacao da mdquina, quern produzird 
o software e qua! o investimento desti- 
nado ao projeto. 

De qualquer maneira, questionar a 
forma como vem sendo introduzidos os 
computadores nas escolas particulares e 
as dificuldades de sua introducdo nos 
estabelecimentos publicos, ainda caren- 
tes de infra-estrutura mais element ar, e 
um dever de toda a sociedade brasileira. 
Durante a leitura, contudo, vejamos o 
que os usudrios interessados na area tern 
desenvolvido. 
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II Claw tem tudo 
pra me lem o 



computador certo. 



Na Clappy, alem de voce encontrar a melhor soiugao para 
o seu problema, voce encontra tambem assistencia tecnica 
propria, cursos de programagao e operacao, consultoria, 
"softwares", perifericos, suprimentos e a 
implantagao de sistemas aplicativos 
comerciais e de apoio a decisao 

APUCAJWOS COMERCIAIS 

Contabilidade 

Controle de estoque 

Folha de pagamento 

Contas a pagar e a receber 

Alem de qualquer outra soiugao que 

a Clappy pode desenvoiver para voce. 

APLICATIVOS DE APOIO A DECISAO 

Planilha Financeira 
Processamento de textos 
Mala Direta 
Cadastro de Clientes 
Controle Financeiro, 

AP II -Clappy 

CPU com 64 Kbytes, placa CP/M, 
2 drives, monitor de video 
Instrum e impressora de 
100 cps. 37 ORTNs mensais* 

' Taxa de leasing em 27.02.84 




unitron 



Clappy 



Venba a nossa lojaou solicite a visita 
de um representante. 



CENWO: 

Av. Rio Branco, 12 loja e sobrebja 
TeL (021) 253.3395 

CEN7JI0: 

Rua Sete de Setembro, 88 - loja Q (Galena) 
Tets.: (021) 222.5517 -222.5721 

COPACABANA: 

Rua Pompeu Lourgiro, 99 Tels. : (021) 257.4398 - 236. 7175 

Aberta diariamente das 10 as 20 boras e aos sabados das 10 as 15 boras. 

Estacionamento proprio. 
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O sorteado derte m§s, que recede ra 
gratuitamente uma assinatura de um ano 
de MICRO S1STEMAS, e Vicente de Paulo 
Gawryszewsk, do Rio de Janeiro. 



Felizmente tudo se resolveu a contento, 
e deixo aqui meus votos de prosperidade e 
desenvolvimento. Continuem assim, para 
cima. 

Pedro Paulo Luz C. F9 
Brasflia — DF 

Agradecemos por not ter dado notfciai 
sobre seu problema com a Digitus e ficamoi 
satisfeitos em saber que tudo foi resolvido. 
Obrigada tambflm pelo incentive 



c 



CADERNO BASIC 



D 



(^ FORMULAS DO AFINIDADES^) (^INTELIGENCIA ARTIFICIAL J 



Gostaria de saber se o Senhor Bruno 
Barasch poderia ceder as f6rmulas matemd- 
ticas que utilizou para fazer o programa 
"Uma questao de afinidades", que saiu na 
MS n9 16, pois nao consegui converter o 
programa para a Tl-58. 
Robinson dos Santos Pereira 
Rio de Janeiro-RJ 

Pedimos ao Bruno Barasch a este nos ce- 
deu gentilmente as f6rmuias. Af vao: 



• PESSOA I Data de nascimento Dt/Ml/AT 
onde ; D1 = DIA, Ml = MES , Al - ANO 

SE Mli-2 ENTAO : MES1 = M1 + 1 

ANO I - Al 

SE Hl^l OU 2 : MfiSl = MH13 

ANOI = A1-1 

.Ano Juliano • Ji = INT< 36S ,25*ANC-l ) 
+INT{30.6001*MES 
1 I+D1 

•PESSOA 2 Data de nascimento D2/M2/A2 

SE M2>2 ENTAO : MES2 = M2+ 1 

AN02 » A2 

SE M2»? OU 2 : MES2 ■ M2+13 

AN02 - A2-1 

Ano Juliano = J2 » INT( 365. 25*AN02 ) 
+ XNTI 30.6001»MES 
21+D2 

Diferenca de Dias entre I e 2 ■ ■ 
ABS(J1-J2) 

Afinidade « 1 00*ABS( ( (FRC( D/C) *C)- 
(C/2) )/(C/2M 

Onde ; C = 23 Afinidade Fisica 

C ■ 28 Afinidade Emocional 
C » 13 Afinidade Mental 

OSSERVAgOES : INT ■= VALOR INTEIRO / 

FRC = VALOR FRACIONARIO 
ABS * VALOR ABSOLUTO 
valor da afinidade e 
percentual (0 - 1001) 
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PROTEXTO 



D 



(. . .) Com respeito ao processador de 
textos da Digitus, PROTEXTO, comunico 
que recebi uma nova fita que funcionou a 
contento. Agradeco a interferencia de 
MICRO SISTEMAS, que comprova mais 
uma vez a elegancia e o estilo de uma publi- 
cacabdenfvel internacional. 

Deixo, no entanto, registrado que a Digi- 
tus enviou-me, juntamente com a nova fita, 
a fotoedpia xerox da correspondlncia que 
deve ter remetido a voces. Menciona nesta 
correspondencia que a carta que enviei nao 
foi recebida, o que, para mim, nao justifica a 
demora em me a tender, pois a Com peel (fir- 
ma que me atendeu e onde comprei o pro- 
grama) entrou em contato telefdnico com a 
Digitus, nao sendo atendida,do mesmo mo- 
do que eu. 



Jamais escrevi para uma revista especiali- 
zada em computacao, por um motivo muito 
particular: a maioria das comercializadas em 
bancas tratam da questao da Informa'tica 
com uma concepcao demasiadamente ut6pi- 
ca e futurfstica, empregando termos tecni- 
cos de um nfvel tab elevado que os proprios 
redatores das ditas publicacoes nao enten- 
dem, gerando com isso uma se>ie de mal-en- 
tendidos e inconvenientes presentes com 
uma frequencia indesejevel. 

MICRO SISTEMAS foge completamente 
a esse padrab, colocando a maquina no seu 
devido lugar, ou seja, prestando grandes ser- 
vicos e operando com quantidades de infor- 
macoes impossfveis ao homem. E foi justa- 
mente este assunto que me levou a escrever 
a voces: It recentemente na revista Byte/ame- 
ricanayum excelente artigo sobre os estudos 
com a Inteligencia Artificial, porem essa 
revista nao abordou mais o assunto. Gostaria 
de saber quais os progressos feitos nesse 
campo da InformStiea. 
Sergio Rodrigues Salgueiro 
Piracicaba - SP 

Consultamos nosso colaborador. Profes- 
sor Antonio Costa, que 6 um profundo co- 
nhecedor ds Inteligencia Artificial no Brasil, 
e eie, em resposta, nos mandou a seguinte 
carta; 

"Na minha opiniao, os principals aconte- 
cimentos em Inteligencia Artifical ocorridos 
nos ultimoi dois a nos sao: 

1. O Japlo lanca um projeto com dez anos 
de duracao, visando a construir um compu- 
tador de quinta geracao. Este computador 
sera capaz de falar ingles e japones, fazer 
traducdes, programar outros com pu tad ores, 
enxergar cenas, etc; 

2. Os Estados Unidos entram na corrida 
para construir um computador da quinta ge- 
racao alocando verbas fabulosas para pesqui- 
sas em Inteligencia Artificial (so o Pentago- 
no alocou 1 bilhao de d6lares para serem 
gastos em cinco anos. Nao deixa de ser la- 
mentavel que parte das pesquisat em Inteli- 
gencia Artificial seja f inanciada por institui- 
coes militares.); 

3. Bancos de Dados capazes de entender 
Ingles, Jap ones, Alemao, Frances e ate 
Portugues comecam a ser vend idos nos Esta- 
dos Unidos. Entre os usuarios de tail Bancos 
de Dados est So o Bank of America e a 
AVCO; 

4. Foram construldos pela Xerox a pela 
Symbolics Inc. Computadores aspeciafmente 
projetados para ex ecu tar prog ram as escritos 
em LISP, a principal linguagem da Inteligen- 
cia Artificial; 

5. Os japoneses anunciam para 1985 um 
computador pessoal capaz de executar efi- 
ciememente programas em PROLOG, t lin- 
guagem que ocupa o segundo lugar em po- 
pularidade entre as pessoas que trsbafham 
com Inteligencia Artificial." 

Antonio Costa 
RioCIaro - SP 



O numero de dezembro de MICRO SIS 
TEMAS (MS n? 27, pag. 82) publicou um 
artigo meu chamado "Meu caderno BASIC 
de programas idiotas". Por um desses miste^ 
rios que ocorre entre o original e a reprodu- 
cao, nao saiu o agradecimento ao coiega e 
programador Nelson Batista de Almeida, 
cuja revisao, palpites e paciencia tornaram 
possfvel o artigo. 
Luis Carlos S. Eiras 
Belo Horizonte-MG 

Pedimos de seu I pas por ana omissao, 
Eiras, A prove it am oi para agradecer mais 
uma vez, a voce e ao Nelson, por colabora- 
rem conosco. 



( ^calendA rio permanenteJ) 

Ao fazfer as modificacoes sugeridas pelo 
autor no programa "Calendario Permanente" 
(MS n9 27, pag. 58), notei que o programa 
continha um erro. Por exemplo: se entrar- 
mos com a data 040284, nab teremos como 
resuttado o dia certo. O erro ocorrera sem- 
pre que o ano for bissexto e o mis Janeiro 
ou fevereiro. 

Para corrigir, proponho inserir a seguinte 
linha: 

107 1FS- OTHEN LET S = 7 
Roberto dos Santos Silva 
Rio de Janeiro-RJ 



Remetemos suas observacoes para o au- 
tor do programa "Calendario Permanente", 
Jose Donizeti de Paula, e este nos mandou 
esta carta: 

"Com referenda as observacoes do iBitor 
Roberto dos Santos Silva, informo que o lei- 
tor tern razao; a linha 105 deve ser desmem- 
brada am duas linhas: 

105 LET S= S - (A-B*4= AND (M= 1 
ORM " 2)) 
107 LETS = S +7"(S= 0) 

O arro nao foi detsctado nos testes que 
fiz, virto que s6 ocorre nas datai de sabado 
de Janeiro e fevereiro de anos bissextos". 
Jose Donizeti de Paula 
Patrocfnio Paulista SP 



(^OPERAqOES COMPLEXAS J 

Com relacao a carta de Ernesto Seguchi 
(publicada na Seca*o de Cartas de MS n9 27, 
com o ti'tulo "Operacoes Complexas"), gos- 
taria de informar que a funcSo ATAN 2 
(do Fortran) pode ser implementada em 
apenas uma linha nos micros compatt'veis 
com o TRS-80 modelo I, como a linha 70 
do exemplo a seguir : 

10 'TESTE DA IMPLEMENT ACAO DA 

FUNCAO ATAN2 (SN,CS) 
20 'ONDE: SN=SINX E CS=COSX 
30 PI = 3.141592 
40 INPUT'ANGULO EM GRAUS =";X 
50 T - X * PI/180 
60 SN-SIN(T) : CS=COS(TJ 
70 IF CS THEN T=ATN( SN/CS>-(C 

S<0)*PI ELSE T=( 1-SGN(SN>/ 

2)*PI 
80 T = TM80/PI : PRINT -X="X 

,"T="T 
90 GOTO 4 



Nesta irnplementacao que apresentamos, 
os valores retomados estSb entre -90° e 
270° . E se uma resposta entre 0° e 360° 
for indispensavel, troque a linha 70 para: 

70 IF CS THEN T= ATN(SN/CS) - 
(CS<0+2*(CS>0 AND SN<0))*P 
I ELSE T= (1-SGN(SN)/2) 

Fernando Malheiros R. da Mota 
Niterdi-RJ 

Li a carta de Ernesto Seguchi (MS n9 
27) sobre o problema do argumento nas 
operacoes complexas e fiz uma pequena sub- 
rotina que pode auxilia-lo: 
IF RE - THEN LET ARG = PI/2 *SGN 

IM 
IF RE = 0THEN RETURN 
LET ARG = ATN (IM/RE) 
IF RE < THEN LET ARG = ARG + PI 
RETURN 

Esta rotina detects tambem se 3 parte 
real 4 zero, o que causaria erro de divisab 
por zero na terceira linha. A rotina foi feita 
para equ ipamentos da Idgica Sinclair, mas 
pode ser facilmente traduzida para outros 
micros. £ importante notar que o angulo es- 
t6 em radianos, podendo ser alterado, pos- 
teriormente, para graus: 
LET ARG - ARG X 180/PI 
Giangiacomo Ponzo Neto 
Rio de Janeiro-RJ 

N6t, e o Ernesto, agradecemos muito a 
intencao de colaborar: muito obrigada. 
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A sua revista MICRO SISTEMAS me hd 
dado mucha curiosidad por conocer el len- 
guaje BASIC profundamente. Soy uruguayo, 
vivo en Rivera- Uruguay, frontera con Li- 
vramento-RS. No existe por estas ciudades 
cursos tan buenos como los publicados, ni 
como los existentes en las capitales. Soy 
programador en lenguaje COBOL y trabajo 
con un computador NCR 8150; no obstan- 
te, quiero perfeccionarme en el conocimien- 
to de micros y su lenguaje. 

Aqui en Livramento hay muchos micros 
y en ellos conseguirl practicar lo ensenado 
por ustedes. No necessitan de mi felicitacio- 
nes pero tal vez ... nunca esta" demas felici- 
tarles por su publicacion mensual tan bue- 
na. 

Derby Miguez Correa 
Santana do Livramento- RS 

Parabens pela materia sobre a III Feira 
Internacional de Informatica; foi a melhor 
cobertura que voces ja* fizeram, e melhor 
que suas concorrentes. Todavia, falando co- 
mo parte integrante e interessada em soft- 
ware, nao tivemos alegrias com esta mate- 
ria, pois ja" o tftulo diz "Saldo positive ape- 
sar dos pesares", e depreendese pelo texto 
que o "pesar" foi o software. 

Concordamos com a materia quando esta 
af irma que o mercado de software estS con- 
fuso, mas isto e basicamente por causa do 
prbprio consumidor, que ainda nabsabe bem 
o que e software e como compra-lo. E disso 
se aproveitam muitas lojas revendedoras de 
micros que usam o software para "forcar" a 
venda da maquina, e tambem os "piratas", 
que se aproveitam do trabalho desenvolvido 
aqui no Brasil ou nos EUA e vendem cbpias 
Isem assistencia e sem garantia) por um pre- 
co aviltado. 

(...) Ha muita coisa seria a fazer para nos 
apoiar - a nos, empresas de software, que 



lutamos na mais absoluta falta de incentivos 
(da industria, das lojas, dos 6rgaos como a 
SEI, e da imprensa especializada), e assim 
mesmo estamos criando e produzindo soft- 
ware de boa a excelente qualidade, venden 
do os com 6tica, garantia e assistencia teeni- 
es ao usu£rio, alocando extensos recursos na 
pesquisa e desenvolvimento de novos siste- 
mas, investindo na qualidade de producab, 
na divulgacao e comercializacab. Para na"o 
falar nos salarios e impostos que pagamos e 
no pessoal que treinamos. Tudo isso sem le- 
gislacao protetora e sem legislaca"o tributa"- 
ria adequada (...). 

Que tal fazermos de 84 o "ano do soft- 
ware" na MICRO SISTEMAS? Conte co- 
nosco I (...). 

Guilherme de Oliveira Quandt 
Gerente da Monk Micro Informatica Ltda, 
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Acho sua publicacao de bom nfvel. O 
tratamento tanto da parte teenies quanto 
da parte de programas I muito bom. Ve-se 
que as pessoas que colaboram para a sua re- 
vista incentivam as outras a colaborar tam- 
be"m. Com relacab a apresentacao da revista, 
s6 tenho elogios: nao ha excessos de assun- 
tos, a leitura na*o 6" cansativa, o papel e a irn- 
pressab sao muito bons e a linguagem e 
bastante clara. Em suma, para uma revista 
praticamente nova, esta" alem do que se de- 
veria esperar. 

Agora vem as dolorosas cri'ticas. Sao 
coisas pequenas que eu gostaria de ressal- 
tar, pois meu intuito e colaborar para que 8 
revista atinja um nfvel mais alto. Tenho uma 
reelamacao quanto a certas listagens, que 
vem com alguns erros. Sao poucos, mas pa- 
ra que se possa analisar o programa (fazer 
diagrams e fluxo), & preciso que a listagem 
esteja correta. t^ extremamente desagrada- 
vel para quern possui um micro constatar 
que o programa nao roda devido a erros. 

A segunda critica I com relacao a abor- 
dagem de linguagem de maquina. Muitas das 
pessoas com as quais eu comento a aborda- 
gem deste assunto reclamam da extreme 
complexidade do assunto: ou o texto nao 
e claro, ou realmente o assunto ediffcil (...). 
Bernardo Meyer 
Belo Horizonte-MG 

Quero por meio desta parabenizar MI- 
CRO SISTEMAS pelo excelente trabalho 
que vem desenvolvendo, pois nab conheco 
outra revista nacional tao boa na area de mi- 
crocomputadores. 

Tenho um computador TK 85 da Micro- 
digital e gostaria que voces procurassem 
adaptar mais programas para a linguagem 
BASIC. £ que so conheco a linguagem BA- 
SIC, e mesmo assim com muita dificuldade, 
pois nSo tenho curso de nenhuma lingua- 
gem, sou novo na a>ea de computacao, e 
possuo um computador ha* apenas tris me- 
ses. Por isso, gostaria de agradecer por todos 
os programas de outras linguagensque voces 
puderem passer para o BASIC. 
Carlos Eugenio Nascimento 
Santos-SP 

Acho que voces poderiam publicar a 
relacao dos principals tipos de cursos que 
sao ministrados no pais, tanto nas universi- 
dades quanto nos cursinhos, rnostrando os 
estagios de formacao de profissionais em 
Informatica, alem de alguns esclarecimentos 
sobre as varias especial izacoes existentes 
atualmente. 
Davi Rogerio S, Castro 
Rio de Janeiro-RJ 



Assim como eu, muitos colegas meus 
sentern a falta de uma secao ou ate um ca- 
derno interno na revista que trate dos pia- 
nos e tarefas do dia-a-dia desses profissio- 
nais. Voces deveriam criar um caderno es- 
pecializado, com assuntos como: Redes de 
Computadores, Redes de Banco de Dados, 
Comunicacab de Dados, Tipos de Comuni- 
cacab de Dados e outros assuntos que inte- 
ressam a esse tipo de profissional. 
Carlos Roberto Cavalcante 
Joab PessoaPB 

Gostaria de tentar melhorar ainda mais 
a revista de voc^s, contribuindo (penso eu) 
com algumas sugestoes: 

- Mais materias sobre o equipamento 
Apple; 

— Colo car sempre Tira-Teima sobre algu- 
mas questoes mais complicadas ou mesmo 
sobre programas publicados em MS (como 
voces ja\ fizeram em MS n9 26, pag. 24); 

— Colocar mais dicas sobre o Apple; 

- Publicar os esquemas el£tricos dos mi- 
cros fobricados no Brasil. 

Vicente de Paulo Gawryszewsk 
Rio de Janeiro-RJ 

Gostaria que voces abordassem mais o 
COBOL e o FORTRAN. Acho que ha mui- 
tos leitores que possuem computadores que 
dispoem dessas linguagens, mas nao as ope- 
ram porque nao entendern. 
Marcel o S. Pa risotto 
Campinas-SP 

Atualmente, com a variedade de soft- 
ware disponivel no mercado, por qua nao 

criar em MS um espaco destinado a analise 
de software? Esta 4 a minha sugestao. 
Antonio A. Caram Neto 
Belo Horizonte-MG 

Gostaria que fosse feito um Tira-Teima 
para o programa "Aventuras na Selva", 
publicado em MS n9 23, da mesma forma 
que foi feito para o programa "Aeroporto 
83", na MS n9 26. 
Ary Fernando Beirab 
Rio de Janeiro-RJ 

Venho atrav^s desta fazer-lhes algumas 
sugestoes: 

• Oue a Secao BITS seja ampliada; 

• Que haja mais artigos referentes as apli- 
cacoes de micros e mmis dentro das grandes 
e medias empresas, dando-nos uma idela me- 
lhor das aplicacoes destes; 

• Que facam artigos que trafem do uso de 
computadores no com role de processos, 
pois £ uma area em grande desenvolvimen- 
to; 

• Que mensalmente seja editada uma tabe- 
la de precos dos diversos micros existentes 
no mercado. 

Cezar Luiz Grava 
Blumenau-SC 

Minha sugestao £ a seguinte: MICRO SIS- 
TEMAS abriga um mundo de programas em 
BASIC. Que tal olhar um pouquinho mais 
para o lado do COBOL, ja" que e uma lin- 
guagem de boa aceitacab no mercado? 
Domingues A. Guerra 
Sao Paulo-SP 

Sugiro que seja lancado um curso de pro- 
gramacao das calculadoras Tl-58 e TI-59, 
pois iria satisfazer um grande numero de 
leitores desta revista. 
Antonio Jose de Barros da Silva 
Rio de Janeiro-RJ 



En vie suas sugest&es para MICRO 
SISTEMAS. Elas serao anotadas em nossa 
pauta e procuraremos, na medidado 
possfvel, viabiliza las. 



Com este programs, seu micro compatfvel com o TRS-80 modeios I ou III tera toda a paciencia e boa von fade 
derm undo para treinar com as criancas as quatro operacoes aritmeticas 



Tutor 
matematico 



Oprograma que e apre sent ado a 
seguir tem como objetivo ser- 
vir tie suporte ba'sico no en si- 
no de aritmetica. Foi escrito 
em BASIC para os micros da linha TRS- 
80 modeios I ou III e tambem podera 
rodar, com algumas pequenas modifica- 
c5es, em equipamentos de outras linhas. 
Na estruturaca'o do programa leva- 
ram-se em conta os seguintes aspectos: 

1 - a escolha do tipo de opera9ao que 
se deseja: soma, subtraca~o, multiplica- 
effo ou divisao ; 

2 — a escolha do nivel de dificuldade 
que se deseja imprimir (facil, medio e di- 
ffcil); 

3 - a eleic.ao de dez questSes. 

Um dos pontos importantes na ela- 
boracao de programas educacionais ou 



Paulo Sergio Goncalves 



de jogos e, sem duvida, a inclusao de ele- 
mentos de estimulacSo e movimentacao 
de caracteres e/ou figuras no video, nao 
so para quebrar a monotonia fria da ma- 
quina como tambem com a finalidade 
de manter o seu interlocutor sempre 
atento. 

Neste sentido, introduziram-se dots 
elementos no programa. O primeiro, o 
som, foi implementado atraves de uma 
pequena sub-rotina (ver listagem, passos 
1400 a 1450), a qua! e chamada todas as 
vezes em que a questao apresentada pelo 
computador e* respondida corretamente. 
segundo elemento refere-se a um ros- 
to que se torna alegre quando a questao 
e' respondida corretamente e sisudo 
quando a resposta 6 incorreta (ver lista- 
gem, passos 1500 a 1600). Para dina- 




mizar ainda mais, este rosto aparece no 
video aleatoriamente em todas as posi- 
9<5es permitidas. Aie"m disso, quando a 
resposta 6 incorreta, o computador emi- 
te uma men sage m , com a posterior in- 
fo rmacao do resultado correto. 

Para facilitar o entendimento da es- 
trutura logjca do programa, procurou- 
se introduzir varios comentarios ao Ion* 
go do mesmo, o que permitira" a compre- 
ensa"o b^sica de seu funcionamento pela 
simples leitura de sua listagem. 



Paulo Se'rgio Goncatves e" engenfteiro, possui 
Msstrado em Engenharia de Produgao e uti- 
liza um CP-500 como bobby e em aplicacdes 
educacionais. 



5 REM "TUTOR" 




180 


ON OP GOSUB 300,400,500,600 


1 


10 CLEAR; CLS 
15 PRINT 

20 PRINT " TUTOR 
MATEMATICO" 


Tutor Matematico 


185 
190 
300 
305 


NEXT J 

GOTO 120 

REM ADICAO 

ON NO% GOSUB 700,750,800 




25 PRINT " ===== 


RCICIO ";0P 


310 


A$="+": E$= "ADICAO." 




100 IF OP< 1 OR OP>4 THEN GOTO 10 


315 


D=XO+YO 


3 PRINT " /" 


105 CLS 


320 


GOSUB 1000 


35 INPUT"MEU NOME E CP-300 EOS 


1 10 PRINT 


325 


GOSUB 900 


EU**rNS 


115 PRINT" NOME : ";NS 


330 


RETURN 


40 PRINT 


120 PRINT 


400 


REM SUBTRACAO 


4 5 PRINT"NOME : ";NS 


125 PRINT " VOCE DEVE ESCOLHER O 


405 


ON NO% GOSUB 700*750,800 


50 PRINT 


NIVEL DE DIFICULDADE :" 


410 


A$="-° : ES=" SUBTRACAO." 


55 PRINT "VAMOS ESTUDAR MATEMATI 


130 PRINT 


415 


D=XO-YO 


CA. VOCE DEVE ESCOLHER" 


135 PRINT " f 1 > = FACIL [ UM 


420 


GOSUB 1000 


60 PRINT "UM DOS EXERCICIOS ABAI 


/UM DIGITO)" 


425 


GOSUB 900 


XO INDICADOS :" 


140 PRINT " (2) = MEDIO (DO 


430 


RETURN 


65 PRINT 


IS/UM DIGITO)" 


500 


REM MULTIPLICACAO 


70 PRINT " ( 1 ) = ADICAO ( + 


145 PRINT " (3) = DIFICIL ( 


505 


ON NO% GOSUB 700,750,800 


)" 


DOIS/DOIS DIGITQS)" 


510 


AS="X": E$="MULTIPLICACAO." 


75 PRINT " (2) = SUBTRACAO 


150 INPUT "ENTRE COM O NIVEL DE 


515 


D=X0*YO 


( - >" 


DIFICULDADE : ";N0% 


520 


GOSUB 1000 


80 PRINT" (3) = MULTIPLICAC 


155 IF NO%<1 OR NO*>3 THEN GOTO 


525 


GOSUB 900 


AO { X )" 


105 


530 


RETURN 


85 PRINT " (4) = DIVISAO ( 


160 RANDOM 


600 


REM DIVISAO 


: 1" 


165 I%=0 


605 


ON NO% GOSUB 700,7 50,800 


90 FOR 1=1 TO 1000: NEXT 


170 FOR J=1 TO 10 


610 


AS^:": E$="DIVISAO." 


95 INPUT "DIGITE O NUMERO DO EXE 


175 CLS 


615 


ZO=XO*YO: D=XO: X0=ZO 



620 GOSUB 1000 

625 GOSUB 900 

630 RETURN 

700 REM SUBROT1NA FACIL 

705 XO=RND(9) 

7 1 YO=RND ( 9 ) 

713 IF XO=YO THEN' GOTO 70 5 

715 GOSUB 850 

720 RETURN 

750 REM SUBROTINA MEDIO 

755 X0=RND(99) 

760 YO=RND{9) 

763 IF XO=YO THEN GOTO 755 

765 GOSUB 850 

770 RETURN 

800 REM SUBROTINA DIFICIL 

805 XO=RND(99) 

810 YO=RND(99) 

813 IF XO=YO THEN GOTO 805 

815 GOSUB 850 

820 RETURN 

850 REM COMPARACAO 

855 IF XO<YO THEN Z=XO: XO=YO: Y 

0=2 

860 RETURN 

900 REM OPERACAO DISPLAY 

905 INPUT"ENTRE COM A RESPOSTA"; 

R 

910 R%=(LEN(STR$(R) )-l } 

915 IF R<>D THEN GOTO 925 ELSE I 

%=I%+1: PRINT@734," ": PRIN 

T@735-R%,R: PRINT@86 3 , " * * M U I 

TO B E M ! **": GOSUB 14 00: 0= 

0:GOSUB 1500 

920 FOR 1=1 TO 500: NEXT: GOTO 9 

70 

925 PRINT@86 3,"* ";R;" * NAO EST 

A CORRETO ! " 

9 30 PRINT#9 2 4," AGUARDE A RESPOS 

TA . . . " 

9 35 FOR 1=1 TO 600: NEXT 

940 D%=( LEN(STRS(D) 1-1 ) 



945 PRINT@863, " 

950 PRINT@9 2 4," 

955 PRINT#734," n 

960 PRINT#735-D%,D 

965 FOR 1=1 TO 500: NEXT: 

OSUB 1500: FOR 1=1 TO 500 

970 RETURN 

1000 REM DISPLAY 

1005 CLS 

1010 PRINT' 79, "TUTOR 

T E M A T I C O" 

1015 PRINT*143,"= = = = = 



0=2: G 
NEXT 



M A 



GOSUB 1400 
' QUER MAIS EXERCICIO 



GOTO 10 
NEXT 



1020 

$ 

1025 
J 

1030 
E : " 
1035 
1040 
1045 
1050 
1055 
1060 
1065 
1070 
1075 
1200 
1205 
1210 
1215 
1220 
M A 
1225 



PRINT©210, "EXERCICIO DE " ; E 
PRINT®299," # QUESTAO N* "; 
PRINT©331 , "QUAL RESULTADO D 



A%=(LEN(STR5(XO) )-1 > 
B%=ILEN(STR$< YO) )-1 ) 
PRINT©64 3-A%,XO 
PRINT#603,AS 
PRINT©607-B%,YO 
PRINT®668, "======" 

PRINT#7 32," ???" 

FOR 1=1 TO 500: NEXT 

RETURN 

REM DISPLAY FINAL 

CLS 

PRINT 

PRINT 

PRINT " TUTOR 

T E M A T I CO" 

PRINT " ===== 



1230 PRINT 
1235 PRINT " 

ADO DO TESTE ***' 
1240 PRINT 



RESULT 



1245 PRINT " ALUNO : ";N$ 

12 50 PRINT 

1255 PRINT"VOCE ACERTOU A ";I%; H 

RESPOSTA! S) ; " 
1260 PRINT "ENTRE DEZ QUESTOES A 
PRESENTADAS. " 
126 5 PRINT 
1270 PRINT: 
1275 INPUT ' 
S (S/N)";Q$ 
1280 IF Q$="S" THEN 
1285 FOR 1=1 TO 500: 
1290 CLS 

1295 PRINT<26 3 2,"ATE A PROXIMA. T 
CHAUr " 
1300 END 

1400 FOR X=l TO 40 
1410 OUT 255,5 
1420 OUT 255,6 

14 30 NEXT X 
1440 RETURN 

1500 REM SUBROTINA ROSTO 

1510 G1$=CHR$< 131 1 : G2$=CHR$(143 

): G3$=CHR$( 179) : G4$ = CHR$ ( 1 9 1 ) 

15 20 CLS 

1530 M1=RND<6)*10-8: M2=RND(4)-1 

: M=M1+(256*M2) 

154 PRINT©M,G4$;G2S;G4S;G4$;G4$ 

;G2$;G4$; 

1550 PRINT@M+6 3,G4S;G4$;G4$;G4$; 

G1S:G4S:G4S;G4S;G4S; 

1560 PRINT<§W+128,G4$;G3S;G3$;G3$ 

;G3$;G3$;G4$; 

1570 PRINT®M+19 2,G1$;G2S;G2$;G2S 

;G2S;G2$;G1$; 

1580 01=INT(M/64)*64: X=(M-01)*2 

+ 2: 02 = INT( (M+ 1 29 ) /64 ) * 3 : Y = 02+0 

1590 RESET (X,Y): RESET! X+ 1 , Y ) : 

RESET ( X+8, Y) : RESET(X+9,Y) 

1600 RETURN _ 
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O melhor para o 

Prof issional de Hoje... 

E o melhor para os 

Prof issionais de Amanha! 



Se voce e exigente com a capacidade, durabilidade e con- 
f iabilidade de sua calculadora. opte pela qualidade e tecno- 
logia HEWLETT PACKARD. Projetadas especificamente 
para atender as mais diwersas areas prof is- 
sionais. Comprove. ainda hoje, nos nossos 
Revendedores Autorizados. 





12C Financeira 

Programavel Avan^ada 



HP-15C 

Cientifica 
Programavel Avan^ada 

c/ Fun^oes Especiais HP-41 Sistema 

AlfanumeHco 

Os nossos produtos tem de Calculo 

Assistencia Tecnica Exclusiva HP. 

Consulte-nos pelos Telefones: 

(01 1) 421.3567 - SP; (021) 266.3744 - RJ. 

HEWLETT -PACKARD DO BRASIL 1NO. E COM. LTDA. 

Alameda Rto Negro. 750 - Rodovia Castelo Branco. Km 23,5 
Barueri - Sao Pauto - CEP 06400 ■ Fone (011)421-1311 

EWLETT 



ia s 



PACKARD 



Adaptado para a iogica Sinclair, Animals e um exemplo do quanto 
os micros podem contribuir para o aprendizado do Ingles 



Aprenda Ingles 
com Animals 



Conhecido comu 
brinde para quern 
compra os com- 
putadores Apple, 
o programa Animals que 
a qui trazemos e uma versao 
escrita em BASIC para 
equipamentos Sinclair com 
expansao de 16 Kb de 
memoria. Foi adaptado pela 
equipe do Centro de Trei- 
namento e Recursos da 
Cultura Inglesa, como forma 
de utilizar o TK85 recente- 
mente adquirido por uma de 
suas fdiais no ensino e prati- 
ca do Ingles com grupos de 
alunos. 

ENS1NANDO 
COMPUTADOR 

No comeco, o programa 
conhece apenas dois animais 
e pede para os alunos pen- 
sarem em qua] que r um, o 
qua! tentara adivinhar l! 
claro que ele comele um 
erro e, entao, pede para os 
alunos informarcni o nome 
do animal em que pensaram 
e em seguida pro pore m uma 
pergunta que o distinga da- 
quele em que ele pen sou. 
programa vai incorporan- 
do essas informaco'es au seu 
banco de dados (tan to os 
nomes dos anirnais quanto 
as perguntas que os difereu- 
ciam dos demais) e isso 
continua ate ele tomar-se 
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tau inteligcnte que os alunos 
sab forcados a dar defini- 
coes cada vez mats precisas. 
Tod as as men sa gens sao 
escritas em Ingles e os alu- 
nos tambe'm devem -se co- 
municar com o micro na 
mesma lingua. mais im- 
portaruu e que. ao inves das 



atividades estarem baseadas 
apenas em princi'pios de 
certo e errado, foram intro- 
Juzidos varios elementos 
que visam a motivar os alu- 
nos a competircm com a 
maquina, descobrindo quan- 
do el a comete um erro. O 
resultado e que eles tern a 



m'tida sensa^ao de estar en- 
sinando o computador e, 
assim, vao aprendendo e 
prat i can do da forma mais 
natural possivel. 
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do Diretor de Estudos da Cul- 
tura Inglesa, 



Animals 



10 REM "ANIMALS" 
20 REM CONVERTED AND ADAPTED F 
ROM A PROGRAM BY JOHN HIGGINS (AF 
TER A.W. LUEHRMANN) WRITTEN FOR 
A SHARP MZ 90B. THIS PROGRAM IN 
SINCLAIR BASIC BY EDDIE EDMUNDSO 
N, AUGUST 1983. 

25 PRINT AT 11 , 10 ; "ANIMALS" 
30 FOR F=l TO 100 
35 NEXT F 
40 LET P=2 
45 LET K=-l 
50 DIM Q$ (127,32) 
55 DIM A$(225,15) 
60 LET Q$<64)="FLY" 
65 LET A$(64)="COW" 
70 LET A$(192)="EAGLE" 
7 5 PRINT AT 7,0; "PLEASE GIVE K 
E YOUR NAME." 
80 INPUT N$ 
85 CL5 

90 PRINT CHR* (146) ;N$ 
95 LET N=64 
100 LET R=64 

110 PRINT "THINK OF AN ANIMAL A 
ND THE" 
120 PRINT "COMPUTER WILL TRY TO 
GUESS IT." 

130 PRINT TAB 4; "I ONLY KNOW "; 
P; " ANIMALS" 

140 PRINT TAB 1; "PRESS ""R"" WH 
EN YOU ARE READY." 

150 IF INKEY$<>"R" THEN GOTO 15 


160 FOR F=l TO 4 

161 PRINT AT F,0;" 

162 NEXT F 
165 LET R=R/2 

170 LET K=K+2 

175 PRINT AT K,0;"DOES IT ";Q$t 
N> ;"?" 

180 INPUT F$ 

190 IF K=5 THEN GOSUB 4000 

200 IF F$="Y" OR F$="YES" THEN 
GOTO 800 

210 LET N=N-R 

220 IF N<1 OR N>127 OR INT (N) < 
>N THEN GOTO 3000 

221 LET L=LEN Of (N) 

222 IF Q$(N,1 TO L) =" 

" THEN GOT 
22 5 

223 GOTO 165 

225 LET X?=A${N*2) 

230 PRINT "I KNOW. ITS A"; 

240 GOSUB 2000 

245 PRINT A$(N*2) 

250 PRINT TAB 3; "IS THAT RIGHT? 

Y/N"; 

255 INPUT F* 

260 IF F$="Y" OR F?="YES" THEN 
GOTO 1000 

265 PSTNT 

270 PRINT "PLEASE TELL ME YOUR 
ANIMAL." 

275 INPUT H$ 

300 IF LEN H$<2 THEN GOTO 2 75 

310 IF HSU TO 2) = "A " THEN LET 

H*=H$ (3 TO LEN H$ ) 

320 IF H$(l TO 3)="AN " THEN LE 
T H$=H$(4 TO LEN H$) 

330 "PRINT 

340 PRINT " THANK YOU. NOW PLEA 
SE GIVE ME A" 

350 PRINT "QUESTION TO DISTINGU 
ISH A"; 

360 LET X$=H$ 

36 5 GOSUB 2000 

370 PRINT H$ 

375 PRINT "FROM A"; 

380 LET X*=A$ (N*2) 

385 GOSUB 2000 

390 PRINT A$(N*2) 

395 PRINT TAB 2; "BEGINNING ""DO 
ES IT. ...?"". " 

40 PRINT 



410 INPUT J$ 

415 LET L=LEN JJ 

420 IF L>8 THEN GOSUB 4500 

450 PRINT TAB 3;"FOR A"; 

460 LET X$=H5 

465 GOSUB 2000 

470 PRINT H$; 

475 PRINT ",WHAT IS" 

480 PRINT TAB 3; "THE ANSWER? Y/ 
N" 

485 PRINT 

490 INPUT Y$ 

500 LET Q$(N)=J$ 

510 IF Y$(l)<> n Y" THEN GOTO 600 

520 LET A$(N*2+R)=H$ 

525 LET A$(N*2-R)=A$<N*2) 

530 LET A$(N*2)="" 

535 GOSUB 5000 

540 PRINT "PRESS" "G"" IF YOU WAN 
T ME TO GUESS AGAIN" 

550 IF INKEY$="" THEN GOTO 550 

555 IF INKEY$="G" THEN GOTO 65 

560 IF INKEY$<>"G" THEN GOTO 54 


5 80 STOP 

600 LET A$ (N*2+R)=A$(N*2) 

610 LET A$(N*2-R)=H$ 

620 GOTO 5 30 

800 LET N=N+R 

810 GOTO 220 
1000 PRINT 

1005 PRINT "WHAT A BRAIN I VE GO 
T. PRESS ""G 

1006 PRINT TAB 2;N$ 

1007 PRINT "IF YOU WANT ME TO GU 
ESS AGAIN." 

1010 IF INKEY|="" THEN GOTO 1010 

1015 IF INKEY$="G" THEN GOTO 85 

1020 PRINT "BYE. I HAVE ENJOYED 

PLAYING THISGAME WITH YOU." 

1050 STOP 

2000 REM TO CHECK A OR AN . 

2010 LET K$=X$ (1) 

2020 IF K$="A" OR K$="E" OR K$=" 

I" OR K$="0" OR K$="U" THEN GOTO 

2050 
2040 PRINT " "; 
204 5 RETURN 
2050 PRINT "N "j 
2060 RETURN 

3000 REM NO MORE ROOM FOR QUESTI 
ONS. 

3010 PRINT 
3020 PRINT "I GET CONFUSED AFTER 

SO MANY QUESTIONS. LETS TRY 

AGAIN. PRESS ""C"" TO CONTI 

NUE. " 

3040 IF INKEY?o M C n THEN GOTO 30 
40 

30 50 GOTO 85 
4000 FOR F=l TO 6 
4010 PRINT AT F,0; " 

n 

4020 NEXT F 

4030 LET K=-l 

40 40 RETURN 

4500 IF J$(l TO 8)="DOES IT " TH 

EN LET J$=J$ (9 TO L) 

4510 RETURN 

5000 REM TO CHECK NUMBER OF ANIM 

ALS 

5005 FAST 

5010 LET P=225 

5020 FOR J=l TO 225 

5030 IF AS(J,1 TO 3)=" " THEN 

LET P=P-1 

5040 NEXT J 

5045 CLS 

5050 SLOW 

5055 PRINT AT 10,5; "THANK YOU." 

5060 PRINT "NOW I KNOW ";P;" DIF 

FERENT ANIMALS" 

5070 PRINT 

5080 RETURN 

6000 SAVE "ANIMALS" 

6010 RUN ■ 
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TODA A LINHA 

DE MICROS E 

MINICOMPUTADORES 



A infonnacao nas pontes dos seus dedos 



Gerenciador de 
banco de dados 



SJatBmae rjperackjnair 
MS-DOS (IBM- PC) CP/ 
M CP/M-86 CROMIX 
COOS MP/M MP/M-86 

Ll Cursor enderecewl 
pars o uso de funcoas 

tultocreen. 




Automacao 
de escntonos 



Requerlmentos do 
Sistema: 

7. (Hicroproosssadoree 90B0, 

8065, ZBO, 8086, 8088) 
:&4K p CP'M; 128K p. CP 1 

M-86 a MS-DOS; 56K p 

Apple II 
J 2 Disketes c, mfnkno de 

126K cada 

□ Terminal c;80 cotunas e 
cursor endelecavel 

□ hnpraaaora com no mlnl- 
mo 80 colunas. 



Otenac (aarie 8.100) MterodlgttaJ (TX'e 83 85 2000) 
&>"* aOOOOOSOO, hnpraaaom, atebf*. algln, dtamac 

Mteroaoganho It0« Apple-Tronk: 



Suprimmiom 

Waco* Magnattcoa. 5M8, 16MB. 80MB. etc 

Dtakettas; 5 1/4" 8 ' aimplaa a duple lacaa 

Etiqum** ( varia* marcat > 

fita MeQTMWca: GOO, 1200 » 2400 P«M 

fttaa pnmprm*or*t. aMora, dlgitab. dlabto, caotrontc. 

ate. 

QartucAca Cobra 400 

ParUs a tomulmrio* contmuo* 



End. Rua da Laps, 180 gr.tlOBa 1110- CEP 
20021 — Rio de Janeiro — Tel.: (021) 221-3069 




Enxadrista expenente. Luciano Nilo de An- 
drade j4 escreveu para os jqrneis "Cor ret o da 
Manna". "Data News" a "Ultima Mora" e pa- 
ra a revista "Fatos & Fotos" Luciano 6 econo 
mista, trabalhando no Mmiste'rio da Fazenda, 
no Rio de Janeiro, As opimoes e comentdrios 
de Luciano Nilo de Andrade. bem como as 
ultimas novidades do Xadrez jogado por com- 
putadonss, estarSo sempre presentes em 
MICRO SISTEMAS 



As mulheres e o xadrez 



Vez por outra discute-se o por- 
que de as mulheres nao se igua- 
larem aos homens nas perfor- 
mances enxadristicas mais ele- 
vadas. Para muitos, a causa seria as li- 
mitacSes que, cultural e socialmente, 
eram impostas as mulheres no passado. 

Outra linha de pensamento e baseada 
na analise psicologica das tendencias e 
motivacoes que estimulam o desenvolvi- 
mento das atividades psicomotoras, con- 
duzindo o ser humauo a atingir o maxi- 
mo de suas potencialidades e caracteris- 
ticas biotopologicas proprias, femininas 
ou masculinas. 

Recentemente, entretanto, pesquisa- 
dores da Universidade John Hopkins, 
E. U. A., formularam controvertida 
teoria segundo a qual o desequilibrio 
hormonal poderia explicar o desenvolvi- 
mento do talento matematico. Partindo 
desta premissa, por extensao, Andy 
Soltis, mestre internacional americano e 
colunista de xadrez do New York Post, 
em virtude de certas analogias entre a 
matematica e o xadrez, levantou a in- 
teressante hipotese de que tamb^mhave- 
ria uma base bioqui'mica para a aptidSO 
para o jogo de xadrez. A comprovacao 
desta hipotese abriri novas perspectivas 
ao ensino e a pesquisa no campo enxa- 
dristico. 

A partida seguinte mostra o adianta- 
do nivel ja" alcancado pelo enxadrismo 
feminino, onde nao faltam aud&cia e 
tecnica. 

Semenowa X Ioseliani 
Socchi 1983, semifinal mundial 

1 - P4R P4BD; 2 - C3BR P3D; 3 - 
P4D PxP; 4 - CxP C3BR; 5 - C3BD 
P3TD; 6 - BSCR P3R; 7 - P4B B2R; 
8 - D3B D2B; - 9 - 6-HI CD2D; 10- 
P4CR P4CD; 11 - P3TD T1CD; 12 - 
B4T. Uma novidade para a posicao. Era 
conhecida a continuacao 12 - BxCCxB; 
13 - P5CC2D el4- P5B. sacrificando 
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um peao para obter forte iniciativa, ou 
simplesmente 14 - B3T. 12 - ... C4B; 
13 - TIC P5C; 14 - PxP TxP; 15 - 
PSC CR2D; 16 - B1R D3C; 17 - 
C5D!? 



a * m 


Um sacrificio 
tipico a la 
Verimilovic. 




As broncos 
entregam 


uma peca por 




, um pengoso 
o toque 




especulativo, 






: .4JL.n 





dor de melhor sorte). 25 - TxB D8T+; 
26 - R2B D5T+(?). Um erro. Com 26 - 
. . . B5R H ;27- TxB D5 T+; 28 -P3Ccom 
mais possibilidades de empate com xe- 
que perpetuo. 27 - P3C D7T+; 28 - 
R3B (initio de bem-sucedida incursSo 
do monarca branco em territorio inimi- 
go). 28 - ...C5R+; 29 - R4C P4T+; 30 
- R5C D6T; 31 - TxT+ R2B; 32 - 
T7R+ C2D;33-TxC+ RxT;34-R6T 
DSC; 35 - CSC B3B; 36 - D3R RIB; 
37 — B3T+ e as pretas abandonaram. 
Uma bonita e aguerrida partida. 



Posifdo 
final 



17 - ... PxC; 18 - BxT DxB; 19 - 
PxP B2C; 20 - D2R C3C. Segundo 
Najdorf, seria melhor 20 - ...BxP com 
mais luta, a despeito do fato de que as 
brancas manteriam o ataque com T3C 
seguido de T3R. 21 - P4B RID; 22 - 
T3C T1R; 23 - T3R DST; 24 - T1R 
BxPD (engenhoso contragolpe merece- 




PARA PENSAR 



Origem desconhecida 



Kuypers x Wade 
Vlissingen, 1972 




Diagrama A 
- As brancas 
jogam e 
ganham 




Diagrama B 
- As brancas 
jogam e 
iniciam 
combinacdo 
que leva a 
mate em 
cinco jogadas 



-Solucao dos problemas- 



•++8><a - s -iea +±za - 1 'oza +i*a - £ ;sex +d*a - z '±*a i+d*i - l - a ewejfieta 

++1*0 - S J.LH +89D - t> 'dDLl 3*3 

Z {++3dXQ - P a +393-£ Uti ■ Z ssi 1ZH 'BGd*a - Z 'Q*D iQLL - I - V BLuei6e. a 

■ -■ 
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Este e um # 
equipamento profissional 







O UNITRON AP II e o microcomputador profissional de maior versatilidade. Com memoria expansivel ate 
384 K, capacidade para ate 14 unidades de disco, utilizacao do sistema CP/M, monitor de fosforo verde com 
apresentacao de ate 160 caracteres por linha, impressoras Elebra ou Elgin e diversos acessorios opcionais, o 
AP II pode ser configurado na medida certa das suas necessidades. Utilizando programas ou processando a 
folha de pagamento, o contas a pagar/receber, o controle de estoques e a contabilidade, o AP II 6 a solucao 
ideal para os seus problemas ou da sua empresa. 

Esta e una empresa profissional. 

COMPU MICRO e a primeira empresa brasileira a adotar o conceito de "BUSINESS COMPUTER 
CENTER". Inteiramente dedicada ao uso profissional dos microcomputadores, a COMPUM I C RO esta c a- 
pacitada a prestar-ihe um ATENDIMENTO TOTAL, desde o levantamento de necessidades, configuracao 
de equipamento, fornecimento de "hardware" e "software" e treinamento, ate a impiantacao de SOLUQOES. 

A equipe da COMPUM ICRO e formada por profissionais de elevada experiencia e alta capacitacao 
na Area de Informatica. Atuando desde 1981 na comerciafizacao de microcomputadores, a equipe da 
COMPUM ICRO apos estruturar e dirigir duas das mais conhecidas lojas da cidade, e de fundar e dirigir a 
primeira revista brasileira de microcomputadores, estruturou-se para levar ate voce toda a experiencia de 
quern ja comercializou mais de 250 UNITRON AP II, para os mais diversos ramos de atividades. 

FINANCIAMENTO - ALUGUEL - LEASING 



ocrrpu 

INFORMATICA EMPRESARIAL LTDA. 



Rua Sete de Setembro 99—11°. 
PBX 224-7007 



unitron 



Um passeio pel as paginas de memoria do Apple, uma parada especial na pa gin a 
zero e dot's programas-exempio ligados a area educacional 




O uso da pagina 
zero pelo Applesoft 



C 



omo todos sabemos, o processador eletronico utili- 
zado na producSb do microcomputador Apple II e 
de todos os seusfilhos e o 6502. Trata-se de um dos 
mais veteranos integrados de oito bits, o qual pode 
acessar, usando dois bytes para enderecamento, ate 2 16 posi- 
c5es diferentes de memoria. Isto corresponde a exatamente 
65536 enderecos diferentes, ou seja, 64 Kbytes. 

As expansoes de memoria que superam esta marca precisam 
fazer verdadeiras magicas para poder ser realmente utiliza- 
das, Eu proprio ja vi um Apple trabalhando com 256 Kbytes 
de memoria, nada mais nada menos do que quatro vezes a ea- 
pacidade de enderefamento de seu processador. 

Na reaJidade, para que expansoes como esta possam ser 
uteis para uso, tern que enganar o processador. Quando ele 
pensa que esta" escrevendo na posi<?ao $0100, ele podera estar 
escrevendo em qualquer uma das quatro posicoes existentes na 
memoria, todas representadas por este mesmo endereco. A de- 
fmiffo de qual das quatro possibilidades foi escolhida e' feita, 
normalmente, atraves de uma esp^cie de chaveamento repre- 
sentado em uma ou mais localiza^Ses de mem6ria pelo valor 
registrado nos bytes. 



AS PAGINAS DE MEMORIA 

Salvo este tipo de bruxaria, os computadores da linha Apple 
II possuem memoria de 64 Kbytes, sendo 48 de RAM e os 16 
restantes de ROM. Desta forma, podemos imagina-la como um 
livro composto de 256 paginas, sendo que cada uma possui 
256 bytes. A pdgina hexadecimal numero S8, por exemplo, 
comeca no endereco S800 e termina no endereco S8FF. 

Destas 256 paginas de memoria, temos tres categorias ba- 
sicas, A primeira corresponde a memoria RAM (paginas zero 
ate' 191); da pagina 192 ate" 207 temos os enderecos corres- 
pondent's as localizacSes de entrada e saida (I/O); e, por ul- 
timo, fica a memoria ROM, que vai do endereco 208 ate' 255 
(ver figura 1 ). 

fracionamento da memoria ROM e bastante simples. O 
programa em linguagem de maquina que interpreta a lingua- 
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gem BASIC Applesoft esta carregado entre as paginas 208 e 

247 (SD000 a SF7FF). No espaco restante, isto e\ da pagina 

248 a 255 (SF800 a SFFFFj, temos o registro do programa 
monitor, que e o supervisor geral do sistema e certamente o 
mais importante programa do equipamento. Ele € gravado pelo 
fabricante quando da confeccao do equipamento e, fisicamen- 
te, localiza-se em um chip de memoria ROM, de tamanho me- 
diano, que fica bem proximo ao microprocessador 6502 na 
placa principal do circuito impresso. Este chip e mais conheci- 
do como ROM F8. 

Existem placas de memoria adicional que podem ser im- 
plantadas no conector numero zero do equipamento, as quais 
podem substituir estas ROM da placa principal. O mercado 
mundial oferece diversas opcoes para isto. Existem compilado- 
res de inumeraslinguagens : BASIC, Pascal, COBOL, FORTRAN, 
FORTH, LISP etc. Normalmente estas placas opcionais dis- 
poem de uma pequena chave para informal ao sistema quais 
as ROM que devem ser utilizadas. Desta forma, o microcom- 
putador podera optar pela memoria ROM original da placa 
principal ou pela mem6ria contida na placa adicional ligada no 
conector numero zero. 



A RAM E SUAS POSSIBILIDADES 



Com relacao as paginas de memoria RAM, o equipamento 
faz uso das paginas de 32 a 63 (S20 a S3F) para registro da 
chamada pigina um de alta resolucao de graficos. A pagina nu- 
mero dois de alta resolucao grafica esta situada entre as pagi- 
nas de memoria 64 e 95 (S40 a S5F). A pagina de texto, por 
sua vez, fica localizada entre as paginas 4 e 7 (em hexadecimal 
$4 e $7) e a pagina tres (correspondente aos bytes de $ 300 e 
S3FF), como sabemos, fica quase que inteiramente livre para 
pequenos programas e rotinas em linguagem de miquina. 

A pagina dois da memoria (bytes S200 a S2FF)e' utilizada 
para registro de linhas introduzidas via teclado. Trata-se do 
buffer do teclado, empregado pela rotina GETLINE do pro- 
grama monitor para registrar, temporariamente, as teclas que 
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it- 
c 



X 




$0000 

< pagina zero 

$0100 

< pagina um 

$0200 

< pagina dois 

$0300 

< pagina tres 




$0400 
$BE00 
$BF00 



$C000 <— principio 
da ROM 

$C100 



c 



$FC00 
< 




pagina 252 



$FD00 

< pagina 253 

$FE00 

< pagina 254 

$FF00 

< pagina 255 



$FFFF 



Figura I - Esquema da memdria 

digitamos para dar um comando a maquina antes da tecla de 
retomo ser acionada. Quando fazemos isto, o computador vai 
ate" a pagina dois e tenta en tender e executar os comandos que 
acabamos de e sere ver com o teclado. 

Para exemplificar, trouxe aqui um programa que faz uma 
pequena trapaga. Existe no manual do Apple um pequeno pro- 
grama de dernonstracao que faz com que todas as letras de A a 
Z sejam impressas em uma linha. que nosso programa fara e 
carregar o buffer do teclado, artificial men te, com a seqiiencia 
de bytes indicada no manual, chamando em seguida a rotina 
SFF70 (com CALL -144), cuja funca"o € varrer o buffer e 
obedecer as instrucoes, Experimente executar este pequeno 
programa que, aparentemente, nao tern nenhuma funcao: 

100 AS = "300: A9 CI 20 ED FD 1 8 69 01 C9 DB 
DO F6 60 300G D823G" 

110 FOB B = TO LEN(A$) - 1 ; POKE 512 + B, 
ASCI MID$( A$, B + t, 1 ) ) : NEXT 

120 REM O "BUFFER" DO TECLADO ACAbA DE SER CARREGADO 
ARTIFTCIALMENTE 

130 POKE 72,0 : CALL - 144 : REM I JTERPRETA E 
EXECUTA O CONTEODO DO "BUFFER" 
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Codo sorrofti * mFiwwta per hroatrm tspecwrante Iranodoi. out w wvmr, a auto 1 5 nrnuKa 



Empresos nocionois © irvdependentas vem labrtoando Coca -Cola no Srasil tvH 
maisdeJOanos C«nlefVBderTiiihoesd©vezes ess© refrigofaritevem sendo sewldo 
em mllhoes de lares txasltelfos. E ©te e sempf© o mesmo refrigerant© Como emor©- 
sdnc 3 1 espon$av©is, o mais Important© para os faoncantes Brasiieirosde Coca-Cola 
e o confrote a© qualWod©. ^~^ 

Acompanhe todos as tees do pfocesso de tatortcocoo d© Coca-Cota vbi- 
tando uma das mais d© 60 fabrtcos que operam de node a sul do Pais 



uiocuclo^dot rabricanitt 

SKgrC 

QQJL' mtOiH HJtftnooai cu> Utmn 

Kit? CoaCounoSvirt 
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liliC^O 

nELLJb 

Microcompu tad ores com credito direto ou leasing 



TK-2000 CrS 899 850' 

CP-200 CrS 315.000 

DGT-1000 Cr$ 990,000 

TK-85 CrS 309.850 

CP-500 ... .. Cr$ 1.490.000 

COLOR 64 Cr$ 1 .080.000 

APPLE II PLUS CrS 1 390 000. 

GRATIS! 
1 JOYSTICK, 20 JOGOS E UM CURSO DE BASIC 
ENTREGA RAPIDA EM TODO BRASIL 



Aplicativos: controls de estoque: contabilidade: (oltia de 
pagamento; contas a receber pagar: mala direta: cadastro 
de clientes e desenvolvimento de software para cada neces- 
sidade. 



Temos toda linha de perifericos e suprimentos para acom- 
panhar o crescimento de sua empresa. 



VISITE-NOS 0U SOLICITE UM REPRESENTANTE 



MICRONEWS COMERCIO E SERVICOS LTDA. 

R. Assembleia 10 Gr. 3317 - Ed. Centro Candido Mendes 

T©1.: (021) 252 M20 - CEP 20011 R J 



USO DA PAGINA ZERO PELO APPLESOFT 



Apos certificar-se de nag ter ocorrido erro na digjtacao, exe- 
cute-o. Ai est a: huma linha. todas a> letras de A a Z. Nosso 
programa criou a rotina em Assembler e imediatainente a cxe- 
cutou. Se voce conhecer o monitor do seu equipamento. reco- 
nhecera certamente todos os comandos usados no programa e 
suas funcdes carregadas inicialmente na linha numero 100, na 
variavel AS . 

A pagina numero um da memoria da maquina e usada para 
registrar a piiha (stack) utilizada pelo processador 6502 quan- 
do da execucao de programas em linguagem de maquina. Sao 
25 d bytes que nao devem ser usados pelo programador, pois 
sa~o. em geral, informacocs muito importantes para o micro- 
processador. 

O regis i rail or SP {Slack Pointer) Jo processador aponta o 
exato byte, da pagina um da memoria, que representa o topo 
da pitha que esta sendo usada para execucao dos programas. 
Esta e uma caracterrstica marcante do processador 6502 e que 
dit'erencia do processador Z80 das maquinas da linha TRS- 
80. Stack Pointer do Z80 e compos to por um par de regis- 
tradores; sao dezesseis bits para que seja registrado o aponla- 
dor para o topo da pdha. Por este motive a pilha de informa- 
cdes dos micros da linha TRS-80 pode sej muito maior do que 
a dos equipamentos Apple, onde existem apenas oito bits para 
apontar o topo da pilha de dados 

Mesmo haven do esta serie de limitacoes ao processador 
6502. ele tern aiguns recursos interessantes que permitiram a 
criacao de uma linha vanada de software de qualidade excep- 
tional. Veja, por exemplo. o propno interpretador de BASIC 
Applesoft que, apesar de escrito em Assembler do 6502, e o 
que apresenta mais recursos entre os interpret a do res mais di- 
fundidos comercialmente no mundo para equipamentos de pe- 
queno porte. 



A PAGINA ZERO 



Vamos falar agora sobre a pagina zero da memoria e os en- 
derecos especiais que o interpretador Applesoft utdiza nestes 
bytes, os quais vao da localizacao zero (SO) ate 255 (SFF). 
Na localizacao 32 temos o valor da coluna inicial que sera 
utilizada para escrever no modo de texto. O endereco 33 defi- 
ne o numero de letras por linha. O byte 34 define a linha ini- 
cial para uso da pagina de texto e o 35 contem o numero da 
linha final a ser empregada. 

O interpretador registra no byte S24 (em decimal 36) a po- 
sicao atual horizontal do cursor, No byte S25 (37 em decimal) 
fica regislrada a posicao vertical atual do cursor. O byte 43 re- 
gistra o numero do conector onde o disco magnetico foi boots- 
do (carregado) pela ultima vez, multiplicado pelo numero 16. 

O rjyte 48 (S30 em hexadecimal) armazena a cor para gra- 
ficos de baixa resolucao, multiplicado pelo numero dezessete. 
O oyte 50 , por sua vez, registra a forma de apresentacao de 
textos: normal, inversa ou piscante. 

Nas localizacoes 103 e 104 temos o apontador para o ende- 
reco de infcio de registro de programas em Applesoft. Normal- 
mente apontam para o byte S0800. Nas localizacoes 105 e 
106 temos o apontador para o final do programa. Os bytes 107 
e 108 contem um apontador para o inicio de registro de varia- 
veis do tipo array. Nas localizacoes 1 15 e 116 esta o valor do 
HI MEM do co m put ado r para aquele momento especvTico. 
Nas localizacoes 121 e 122 fica o endereco da linha de pro- 
grama que esta sendo executada. Nos bytes 123 e 124 temos o 
valor da linha com a instrucao DATA que esta sendo emprega- 
da para obtencao de dados. Os bytes 125 e 126. por sua vez, 
apontam para o endereco do proximo dado da instrucao 
DATA a ser lido pelo programa em execucao. 

As localizacoes 1 29 e 130 contem o nome, em ASCII, da ul- 
tima variavel que foi utilizada. Em 131 e 132 ha um registro 



do apontador para a localizacao, na memoria, desta ultima va- 
riavel utilizada. 

O by to 214. como ja vimos nesta secao. no numero 26 de 
MICRO SISTEMAS, corresponde ao endereco que indica que o 
sistema de protecao de listagens AUTO RUN esta ou nao liga- 
io. O byte 216 c o flag de uso dos comandos ON ERR GOTO. 

O byte 222 tbrnece o codigo do tipo de erro ocorrido 
quando da execucao de uma rotina de t rat amen to de erros (ve- 
rernos melhor este assunto em uma outra oportunidade). Os 
bytes 218 e 219 contem o valor da linha onde ocorreuoerro 
de execucao de um programa. 

Os enderecos 224 e 225 contem o valor da ultima abscissa 
usada em um desenho de graficos de alta resolucffo. O valor da 
ordenada e registrado em apenas um byte na localizacao 226. 
Ja o byte 228 registra o codigo da cor que esta sendo emprega- 
da. e o byte 230 contem o codigo da pagina de ait a resolucao 
que esta sendo alvo dos comandos de manipulacao de graficos 
(este assunto lambem sera visto com maiores detalhes em 
outra oportunidade). Por ultimo, o byte 231 registra a escala 
do desenho para graficos que utilizem tahelas de forma. A 
rotacao ilea armazenada na localizacao 249, 

A velocidade de impressao de caracteres no modo texto, a 
qual pode ser controlada pelo comando SPEED, fica registrada 
na localizacao 241. O comando PEEK (241) fomece a diferen- 
9a entre 256 e a atual velocidade de impressao definida pelo 
comando SPEED. 



RND E KEYIN EM APLICACOES EDUCACIONAIS 



Guardei para o final uma outra local izacSo import ante da 
pagina zero, utilizada pelo interpretadoi BASIC do Apple, Es- 
tou falando das localizacoes 78 e 79 (em hexadecimal S4E e 
S4F). Estes dois bytes regjstram um valor que serve de semen- 
te para a geracao de numeros aleatorios quando do uso da fun- 
cao de randomizacao do equipamento. Quando usamos a fun- 
cao RND do BASIC, o equipamento se vale do conteudo des- 
tas localizacoes para gerar o numero aleatorio desejado. 

Pouca gente sabe como funciona a geracao de numeros ran- 
domicos para este tipo de equipamento. Na realidade, existe 



Listagem 1 



PROGRAM MULT 1 PLICA ; 

VAR RESPOSTA : CHAR ; 

NUMERO : INTEGER ; 

)URE TABU ADA ( NUMERO : INTEGER ) ; 
VAR A : INTEGER ; 
BEGIN 

WiUTELN ; WRITELN ; 
WHITELN ('TABUADA DO ', NUMERO) ; 
WRITELN ; 

FOR A := TO 10 DO WRITELN (NUMERO, 1 X 
A, ' = ' .NUMERO * A) : END ; 
BEGIN l*PROGRAMA PRINCIPAL*) 
REPEAT 

WRITE ('QUE TABUADA VOCE DESEJA VER? ') 
READLN (NUMERO) ; 
TABUADA (NUMERO) ; 

WRITE ('MAIS ALGUMA TABUADA IS/N)? 'I ; 
READLN (RESPOSTA) ; WRITELN ; 
UNTIL ( RESPOSTA = 'N' ) 
END. (■* FINAL DO PROGRAMA PRINCIPAL *) 



Listagem 2 
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DIfl ME$(4) ,N0$U): FOR A - 

a: read me$<a> ,no$(A) : next 



TO 



30 



40 



60 

70 



SO 



90 



DATA "EI, PRESTE flAIS ATENCA0 
! ! 'SPESSIMD.VOCE E' UM BURRO 
M ,FRAC0,SAGRADA IGNORANCIA! 
! ,REGULAR,"V0CE NAO APRENDE 
MESM0, HEIN?"„B0PI,"SE ERRAR 
DE NOVO VAI LEVAR Ufl flURRO", 
QTIM0 

TEXT : HOME ; NORMAL : SPEED= 
255: HTAB 5: PRINT "*** APR 
ENDEND0 A TABUADA ***": POKE 
34,3: HOME 

INPUT "OLA, QUAL E' SEU NOflE? 
"?N$: HOME : PRINT "VAMOS E 
STUDAR A TABUADA UM POUCO?' 1 : 
PRINT 

VTAB 6: HTAB 1: PRINT "SERA' 
QUE VOCE JA' ESTA' PRONTO PA 
RA FA-ZER A PR0VA, "N*"? (S/ 

N) : ";': GET R$: IF R* < > " 

S" AND R$ < > "N" THEN PRINT 
CHR$ (7): GOTO 50 

HOME : IF R$ = "S" THEN 130 

VTAB 6: HTAB 1: PRINT "NAO ES 
TA' AINDAH": PRINT : PRINT 
"BOM, ENTA0 VAMOS ESTUDAR": PRINT 
: INPUT "QUAL A TABUADA QUE 
VOCE QUER VER? ";N: IF N < 
OR N > 10 THEN 70 

HOME : VTAB 6: HTAB 14: PRINT 
"TABUADA DO "N: HTAB 13: FOR 
A = 1 TO 14 + (N = 10): PRINT 
"=";: NEXT : PRINT : PRINT 

FOR A = TO 10: HTAB 15: PRINT 
N" X "A; TAB( 22)"^ "N * A: FOR 
B = TO 15:C = PEEK (49200 



) : NEXT : NEXT 
100 VTAB 22: HTAB 1: PRINT N$", 

TUD0 CERT0? (S/N): " ; : GET R 

$: IF R* < > "S" AND R$ < > 

"N" THEN 100 
110 IF R* = "S" THEN HOME : GOTO 

50 
120 VTAB 22: HTAB 1: PRINT "CLAR 

QUE ESTA!!!" SPC( 20): FOR 
A = 1 TO 15: PRINT CHR* (7) 
; : NEXT : HOME : GOTO 50 

130 HOME,: VTAB 6: HTAB l: INPUT 
"ATE' QUE TABUADA VOCE JA' S 
ABE? ";N: IF N < OR N > 10 
THEN 130 
140 HOME : PRINT "PR0VA DE TABUA 
DA PARA "N$: PRINT : PRINT : 
FOR A = 1 TO 20:N1 = INT ( 
(N + 1) * RND <D) :N2 = INT 
<<N + 1) k RND (1) ): PRINT 

: for b = 1 to 29: print "-" 
j: next : print "QUESTAO "a: 

PRINT "QUANT0 E' "Nl" X "N2 

" = ";: INPUT R 

150 IF R < > Nl * N2 THEN PRINT 
ME$(5 * RND (1));: FOR B = 

1 TO 20:D = PEEK (49200): NEXT 
: NEXT : GOTO 170 

160 PRINT "MUITO BEM "N*"!!!"?: FOR 
B •= 1 TO 5: PRINT CHR$ <7); 
: NEXT :C = C + l: NEXT 

170 HOME : VTAB 6: PRINT "RESULT 

ADO": PRINT "=========": PRINT 

: PRINT : PRINT : PRINT "N0M 
E" TAB( 15)": "N$: PRINT "TA 
BUADA LIMITE: "N 

ISO PRINT "CERTAS" TAB ( 15)": "C 

: PRINT "ERRADAS" TAB ( 15)": 

"20 - C: PRINT "N0TA FINAL" 

TAB( 15)": "5 * C: PRINT "R 

ESULTAD0" TAB( 15)": "N0$( INT 

(C / 4) - (C a 20)): END 



uma rotina na ROM chamada KEYIN. localizada a partir do 
endereco SFDIB, que tern por funcao Ficar varrendo o tecla- 
do, esperando que uma tecla seja pressionada. Enquanto cspe- 
ra (o processador trabalha muito mais rapidamente que qual- 
quer datilografo profissionaJ ), o processador fica constante- 
mente mudando o valor dos bytes 78 e 79 at rave's de uma fun- 
Cao predefinida pelo fabricante do equipamento. 

Desta forma, mesmo que queira, o usuario nao conseguira 
fazer com que a semen te para geracao de numeros ran domicos 
possa ser manipulada devido a alti'ssima velocidade com que 
ela muda. Fica. portanto, assegurada a aleatoriedade das fun- 
of5es de geracao de numeros ran domicos. 

Usaremos estas funcoes em programas de aphcacao educa- 
cional, coisa simples, para que iniciantes em aritmetica basica 
possam aprender a tabuada. Com relacao a todos os enderecos 
que foram a bo rd ados aqui, quero, em uma outra oportunida- 
de, explica-los com mais detalhes, pois podem ser muito liteis 
a qual que r programador. E lamentavel que informacoes como 
estas nao sejam encontradas em nenhum manual do proprie- 
tario e que tenliam que ser obtidas at raves de exaustivas pes- 
quisas aos programas interpret adores da ROM ou de con suit as 
diretas aos engenheiros e analistas que criaiam o equipamento. 

Temos, na listagem 1 , um programa em linguagem Pascal 
cuja funcao e ensinar a tabuada para eriancas. Sua utilizacao e 
muito simples e creio serem desnecessarias maiores explica- 



Coes. O programa foi test ado em um compilador Apple Pascal 
e fund on ou satisfatoriamentc. 

Na listagem 2 temos um outro programa que tarn be m pode 
ser utilizado para aprendizagem da tabuada, desta vez em BA- 
SIC Applesoft, 

A execucao tern duas fases especificas. Na primeira, a crian- 
Ca pode solicitar ao equipamento que most re, no video, quai- 
quer uma das tabuadas para que ela possa estuda-!as. Em segui- 
da, na segunda fase, o aluno e convidado a responder a algumas 
questoes formuladas aleatoriamente pelo micro e, ao final de 
algumas respostas, e emitido um relatorio de desempenho com 
a respectiva nota obtida. (Voce podera notar que o programa 
possui caracteristicas marcadamente conversacionais com o 
usuario, de forma a tomar sua utilizacao simples ate por uma 
crianca). 

Para geracao das questoes foram utilizadas as funcoes para 
randomizacao que aqui foram explicadas. Aiesta. Uma aplica- 
Cao educacional bastante simples e facil de ser criada. 



Rudolf Homer Junior cursa CiGncia da ComputacSo na Unicamp e 6 so- 
cio da Potenciat Software, fir ma Que produz programas especiais para 
microcomputadores em Campinas, SP. 
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Conheca mais dois tt'pos de forma to de gravacao e descubra, com a ajuda deste 
u tili tar io para a I in ha TRS-80, a forma tacao de quaiquer fita cassete 



Descubra o formato 
de uma fita cassete 



Jo So Hen rique Vo Ip in i Ma t tos 



Os numeros correspondentes is li- 
nhas do pro grama sao codificados em 
ASCII, digito por di'gito, num total de 
cinco bytes. Entretanto, o bit 7 (parida- 
de) destes bytes e setado. 

As linhas do pro grama sao codifica- 
das integralmente em ASCII. A tabula- 
te* (tecla -*- ) e codificada como 09 e o 
fim de linha (tecla ENTER) e indicado 
por 0D. 

PROGRAMA CASMEM 

Algumas vezes nos defrontamos com 
algumas fitas que na"o sa"o formatadas de 
acordo com os padroes usuais (por exem- 
plo, as fitas de dados do processador de 
textos Electric Pencil II ou do jogo Space 
Wars). Algumas fitas necessitam ate de 
um programa especial para carrega-las, 
dlficultando a pirataria. Que tal tentar 
descobrir como est as fitas sffo formata- 
das? 







Figura 3 


00060 SELVEL 


EQU 


3042H 


00100 DISP 


EQU 


02IBH 


00180 


CALL 


SELVEL ; Seleciona a baud rate 



O programa Casmem foi escrito para 
este tipo de tarefa. Ele carrega tudo o 
que vier apos o byte de sincronismo 
num buffer da memoria que comeca em 
7050H (28752 em decimal). Para execu- 
la-lo, col o que a fita desejada no grava- 
dor e aperte a tecla PLAY. Estando no 
ni'vel de comando do DOS, digite CAS- 
MEM<ENTER> 

O programa acionara o motor do gra- 
vador e ira procurar o prefixo e o sincro- 
nismo. Assim que encontra-los, aparece- 
rao dois asteriscos no video. A partir 
daf, a cada dois bytes lidos, aparecera 
(com muita velocidade) um carater quai- 
quer no lugar de um dos asteriscos (este 
carater e o ASCII do primeiro byte lido ). 

Voce sabera que o programa foi com- 
pletamente lido quando o carater ficar 
estabilizado. Aperte entao o botfo de 



RESET do computador e utilize um 
programa apropriado para analisar o que 
foi carregado no buffer (T-BUG, DEBUG 
MON 3,4 ou 5, SUPERZAP etc.). 

Casmem foi desenvolvido para micros 
da f am ilia TRS-80 Modelo I, mas quern 
tiver um equipamento compati'vel com 
o Modelo III tambe'm podera utiliza-lo, 
bastando apenas algumas alteracoes no 
programa: deletar as linhas 6(6 100 e 
180 e inserir as linhas que est£o na figu- 
ra 3. 

O programa entao perguntara, antes 
de acionar o motor do gravador, qual a 
taxa de transference a {baud rate) da fita. 
O CP-500, por exemplo. perguntaria: 
CASS?. Digitando A ou< ENTER >,a ve- 
locidade sera de 1500 baud, Digitando 
B, sera de Sfytybaud. ■ 



No numero 21 de MICRO SIS- 
TEMAS, tivemos um artigo 
do Sr. Daniel Augusto Mar- 
tins descrevendo o formato 
de gravacffo em cassete dos programas 
em BASIC e em Iinguagem de maquina 
(SYSTEM). No entanto, alem destes 
dois tipos de formataca"o, dois outros 
foram padroni zados pela Radio Shack e 
Microsoft, a saber: 

• arquivos de dados utilizados pelo 
BASIC; 

• programas em mnemonicos Z80, cria- 
dos pelo programa Editor/Assembler 
(EDTASM). 

Neste artigo, abordaremos estes no- 
vos tipos de formatacffo, incluindo um 
utilitario para equipamentos da linha 
TRS-80 Modelo I (que tambem podera 
ser adaptado para os que seguem o Mo- 
delo III), cuja funcao e revelar o modo 
como foi gravada uma fita cassete para 
estes equipamentos. 

ARQUIVOS DE DADOS 
UTILIZADOS PELO BASIC 

Devido ao fato de que o prefixo (255 
bytes 00) e o byte de sincronismo (byte 
A 5) devem ser lidos cada vez que o gra- 
vador e acionado, os arquivos de dados 
sSd armazenados de modo muito pouco 
eficiente. 

Cada vez que um PRINT # -1 ou 
1NPUT#-1 e* exeeutado, um novo pre- 
fixo e byte de sincronismo sao gravados 
ou lidos. Portanto, durante a elaborac^d 
de programas em BASIC que utilizem 
arquivos em fita, procure acumular o 
maior numero possivel de dados em um 
PRINT#— 1, respeitando, e claro, o li- 
mite de 256 bytes. Isto ja devera dimi- 
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nuir bastante o tempo de execucao de 
seus programas. 

Existem tambe'm outras formas de 
agjlizar a gravacao, mas voce sabia que 
os manuals dos nossos micros esta"o er- 
rados? Voce pode perfeitamente gravar 
um numero e le-lo mais tarde como se 
fosse uma string, ou gravar uma string 
que consista apenas de digitos e le-la 
mais tarde como um numero. Pois e, ao 
que parece, os fabricantes nacionais fize- 
ram apenas uma tradugao do manual do 
TRS-80. . . e entraram pelo cano, 

Os dados da lista de itens de um 
PRINT # -1 sao gravados em seqiiencia, 
separados por vi'rgulas. Strings sKo grava- 
das como uma serie de caracteres. Nu- 
meros, sejam inteiros, reais de precisa~o 
simples ou dupla, sao gravados como 
uma string de digitos, ten do um espaco 
em branco atras e outro na frente (se o 
numero for negativo, tera um sinal de 
menos '*— **, ao inves do espaco em bran- 
co na frente). 

Tenha cuidado na ieitura de arquivos 
de dados. Se o numero de itens da lista 
do INPUT # -1 nffo for igual ao da lista 
do PRINT#— 1 correspondente, com 
certeza voce caira numa condicSo de 
erro. Tome muito cuidado tambem ao 
gravar uma string, nao permit in do que 



bytes 



■ byto tte mncroniMD 



dadoa da Jif.ti dr iteai 
separados mr virqttlas 



byte indicative 
' do l!» dr arquiv 



Figura 1 - Formato gravado por PRINT # -/ 



ela contenha vi'rgulas, pois obviamente 
havera problemas na Ieitura. 

PROGRAMAS 
EM MNEMONICOS Z80 

O programa Editor/Assembler 
(EDTASM) grava os programas com a 
seguinte formatacao: 

- prefixo (255 bytes 00); 

— sincronismo (byte A5); 

- cabecalho (byte D3) indicando o tipo 
de arquivo ; 

— nome do programa (seis bytes) codifi- 
cados em ASCII (se o nome tiver menos 
que seis caracteres, os espacos a direita 
sao preenchidos com brancos (byte 20)); 

— o programa em si ; 

- o finalizador de arquivo (byte 1A). 













prefixo 

255 

bytes 

00 


» byte de sincronismo 

•- indicador do tipo 


AS 


D3 






ae arquivo 

— - nome do prog rasa 
(6 bytes) 














- programa f onte 

byte indicador 

~ do fio de arquivo 




0D 











Figura 2 - Formato de um programa 
em mnemonicos Z8Q 
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Casmem 








00010 J 




*** CASttEfl 


^M 






00020 l Este prosraii Ip todos as 


bytes vriMZis r,o cassete 




00030 : (3P05 


o byte de sincroni5iD) 
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Engenheiro naval, terminando P6s-Gradua- 
cao na COPPE/UFRJ, Joao Henrique Volpini 
Mattos tern cursos de CP/M, Assembler e 
FORTRAN pela UFRJ, COBOL pela 
NUCEMPRO, conhece SPSS e trabatha ha 
quatro anos com o BASIC (nao eKclusivamen- 
te). Possui um microcomputador D - 8002 
compati'vel corn o TRS-80 Modelo I, com 
placa de CP/M. Atualmente trabalha em 
Arquitetura Naval no Estaleiro Maui, utili- 
zando um IBM 434 J. 



INSTITUTO DE TECNOLOGIA ORT 
CENTRO DE 1NFORMATICA 




CURSOS 
LINHA IBM <Apoio Marcodata) 

OS/VS1 - VSE - VM/CMS - VSAM 
CICS - DL/1- COBOL: TECNICAS E 
OTIMIZACAO 

MICROINFORMATICA 

BASIC - ASSEMBLER PASCAL 

LOGO - CP/M - VISICALC 
dSASE II - WORDSTAR 

FORMACAO DE PROGRAMADORES 

DURACAO: 9 MESES 

CPD-ORT; IBM 4341 COM TERMINAIS 
LABORATORIO DE MICROS 

TREINAMENTO IN HOUSE 

SOLICITE INFORMACOES E 
FOLHETOS EXPLICATIVOS 



RUA DOI^IA MARIANA - 213 - BOTAFOGO 
TELS.: 226-3192 - 246-9423 



Falta de componentes 



A associacSo entre a IBM e a 
Intel, fabricante dos processado- 
res 8088, de 16 bits, e 8085 e 
8086, de 8 bits, ainda nao cau- 
sou maiores problemas aos fabri- 
cantes nacionais de microcom- 
putadores. Para Cileneu Nunes, 
Gerente de Produto da Scopus. 
apesar da Intet ter reservado 
75% de sua producao do 8088 
para IBM, e 25% para os demais 
fabricantes, esta quantidade tern 
sido suficiente. Segundo ele, a 
Scopus e o maior comprador da 
Intel entre a America do Sul, 
Central e Africa, e o bom rela- 
cionamento entre as duas em- 
presas propiciou a formacio de 
um estoque grande, tanto do 
processador 8088 comodos LSls 
usados no Nexus. "Existem pro- 
blemas mas na"o sao insuperS- 
veis, e para 84 estamos total - 
mente garantidos", afirma Cile- 
neu, 

As opinioes variam em rela- 
cao a falta de componentes no 
mercado, O engenheiro Newton 
Lavieri, da Sol tec, por exemplo, 
que fabrica o microcomputador 
EGO, tambem de 16 bits, afirma 
que os componentes estao caros 
e muitas vezes nao sao encontra- 
dos no mercado. Segundo ele, 
isto se deve muito ao revende- 
dor que joga com a demanda su- 
bindo os precos. Fernando Ma- 
luf, engenheiro da Danvic, que 



fabrica o equipamento DV 600. 
com dots processadores — Z 80A 
e 8088 — e em breve tancara no 
mercado a placa com processa- 
dor 8088 para o modelo cacu- 
la, diz que a falta de componen- 
tes e contornavel e nao chega a 
comprometer a producao. 

A Microtec. fabricante do PC 
2001, 16 bits, tern uma produ- 
cao mensal de 40 equipamentos 
e, devido a pequena quantidade, 
a dificuldade em encontrar com- 
ponentes pode ser contornada. 
"Temos sentido alguma dificul- 
dade nesta parte mas ainda nao 
chegou a atrapalhar a producao. 
porque antes de lancar o equipa- 
mento fizemos um estoque", 
afirma Arthur Cesar Falcao, Di- 
retor Comercial da empresa. "O 
problema sera quando aumen- 
tarmos a produca"o e isso mevi- 
tavelmente ira repercutir no 
custo do equipamento", com- 
pleta ele. Segundo Falcao, o es- 
toque da Microtec deve durar 
ate* final de marco. 

A questSo da falta de com- 
ponentes afeta mais diretamente 
os fabricantes cujos equipamen- 
tos nao foram homologados peia 
SEI. Estes nao tern direito a co- 
ta de importacafo pela Cacex e 
acabam tendo que comprar de 
revendedores aqui mesmo, com 
precos sempre sujeitos a altas, 
de acordo com a demanda. 
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SUCESU anuncia 
INFORMATICA 84 



A SUCESU ja anunciou a 
realizacao do INFORMATICA 
84 para os dias 5 a 1 1 de novem- 
bra proximo, no Riocentro, Rio 
de Janeiro. O even to compreen- 
de o XVII Congresso Nacional 
de Informatica e a IV Feira In- 
ternacional de Informatica, e 
promovido pela SUCESU — Na- 
cional e realizado pela SUCESU 
— Rio, sob o patroci'nio da Se- 
cretaria Especial de Informatica 
e do Mimsterio das Comunica- 
coes. 

Estima-se que mais de 200 
exposi tores estarao apresentan- 



PC 2001 
em escala 
industrial 



J4 esta sendo produzido em 

escala industrial o PC 2001 , 

microcomputador de 76 bits, 

compati'vel em hardware e 

software com o IBM PC e 

fabrtcado pela Microtec 

Sistemas Industria e Come'rcio 

Ltda. 

O PC 200 1 possui processador 

Intel 8088 de 16 bits com 

velocidade de 5 MHz; 

memdria ROM de 8 ate 1 40 Kb 

e memdria RAM de 64 Kb a 1 

Mb: cmco conectores de 

expansSo de funcdes; tec/ado 

destacado de 85 teclas; 

monitores de video em fdsforo 

verde'ou poticromaticos; 

interfaces para ate" 16 

terminais para multiusuarios; 

roda, inclusive, CP/M 86; 

linguagens BASIC, 

FORTRAN, COBOL, 

Assembler e outras, atem de 

expansdes de memdria, 

comunicacdes etc. 




PC 200 1 : micro de 16 bits da Microtec 



do seus produtos e services para 
um publico previsto aeima de 
200 mil visitantes. A FOCO, em- 
presa encarregada da administra- 
te e vendas da Feira, deu im'cio 
a comercializacao de 12 mil me- 
tros quad r ados da area reservada 
a industria de Informatica para a 
exposicao de seus produtos. 

De acordo com a planta tra- 
cada para o Informatica 84, ha* 
vera quatro pavilhdes no Rio- 
centro: o central, o de exposi- 
c5es, o de congressos e ainda um 
desttnado a microempresas. 



Premio 
CLADI 



O Centro Latino Americano 
de Desenvolvimento de Informa- 
tica, fundaca"o vinculada ao Go- 
ve rno do Estado de Pernambu- 
co, instituiu em 1983 o premio 
Clad* Esse premio tern o objeti- 
vo de estimular a pesquisa e a 
produca*o cienti'fica e tecnolbgi- 
ca no campo da Informatica, na 
regia"o e no pais. Podem concor- 
rer teses ou dissertacoes de mes- 
trado aprovadas em Cursos de 
Centros de P6s-Graduacao em 
Informatica. Cada Centro pode- 
ra" inscrever ate tres teses ou dis- 
sertacoes. Os trabaihos concor- 
rentes tera"o que ter sido aprova- 
dos nos dois anos anteriores a 
realizacao do premio. Ao autor 
do trabatho vencedor cabera um 
diploma e um premio em dinhei- 
ro no valor de Cr$ 1 milhao, 
alem da publicacao do material. 
O prazo para inscrigao 4 ate o 
ultimo dia util de marco. en- 
dereco do CLADI e Rua Jose 
Goncalves de Medeiros, 96, Ben- 
fica, Recife, CEP 50,000, PE. 



Macintosh, a nova cartada da Apple 



A Apple Computer esta 
apostando tudo no seu novo 
produto: o Macintosh, uma m3- 
quina rapida, de 32 bits, com as 
facilidades graTicas operadas na 
tela atraves de um mouse, que 
dirige o cursor. Com essa nova 
cartada a Apple espera recuperar 
o terreno perdido no ano passa- 
do, na area das maquinas de uti- 
lizacao pessoal, para a IBM, com 



seu bem-sucedido IBM -PC de 16 
bits. 

Macintosh e o segundo 
passo da Apple Computer a ca- 
minho da anunciada e potente 
geracao de micros pessoais de 32 
bits. primeiro passo foi o Lisa, 
um lancamento mal-sucedidoda 
empresa, no ano passado. 

O Macintosh, em sua versao 
bcisica, inclui um visor branco e 



preto de nove polegadas com de- 
finicao de 512 x 342 pontos, 
duas portas seriais (para iigacao 
com perife>icos), chips de som e 
fala, um teclado e um mouse. 
Para armazenamento de massas 
de dados, ha" um microdisc -drive 
de 3.5" e capacidade de 400 
Kbytes de cada lado (o equiva- 
lente a 100 pSginas de texto em 
espaco dois). 



Nos Estados Unidos, cente- 
nas de empresas ja" estao desen- 
volvendo programas e periferi- 
cos para a maquina. Um dos 
programas disponi'veis e" o 1-2*3 
da L otus, que integra aplicacoes 
de negocios. Dois dos progra- 
mas, processamento de palavras 
e grfificos, acompanharao o 
equipamento, 



MC da Omega 

A Omega esta entregando as lojas as primeiras unidades de seus mi- 
crocomputadores da linha MC 100. 200 e 400, lancados na Feira de 
Informatica. O MC 100 tern UCP com dois processadores. 6502 e 
Z80; sua configuracao basica e composta por teclado alfanumerico e 
nume>ico reduzido, monitor de video de fosforo verde, uma unidade 
de disquete de 5 1/4" e memdria de 64 Kbytes de RAM expansive) 
ate 310 Kb. Nesta versao, o preco do MC 100 e de 335 ORTN O MC 
200 tambem tern dois processadores, sendo um deles de 16 bits (8088); 
sua memdria para usuario comeca em 72 Kbytes, podendo se expandir 
ate 328 Kb, e assim como o MC 100, o 200 Tambem aceita disco win- 
Chester de 5 Mbytes, e seu preco na versao basica e de 601 ORTN. O 
terceiro equipamento fabricado pela Omega e o MC 400, um micro 
compati'vel com Apple, com processador 6502, memdria inicial de 64 
Kbytes de RAM expansi'vel ate 128 Kb. Sua versao basica e composta 
por UCP, teclado alfanumerico, interface para monitor de vi'deo, safda 
para gravador cassete, said a sonora e safda para dois joysticks, Nesta 
configuracao, o MC 400 custa 160 ORTN. A producao inicial, segun- 
do a Omega, e de 25 unidades por me"s de cada um dos equipamentos. 

Software para o TK 2000 



Acompanhando o lancamen- 
to do TK 2000 Color da Micro- 
digital, a Multisoft estara colo- 
cando a disposica"o dos usuanos 
deste novo micro sua linha de 
aplicativos comerciais, alem de 
jogos de aha resoluca"o grafica, 

A principle, dois programas 
em fita cassete, para uso profis- 
sional, serao comercial izados: 



Muhicard e Multiestoque. pri- 
meiro permite o cadastramento 
de ctientes e o segundo possibili- 
ta um pratico controle de esto- 
que. Na linha de jogos de acao, 
Auto-estrada, Multi-Invader, Sa- 
botagem e Pa~nico tambem po- 
derao ser adquiridos. Posterior- 
men te, estes programas tambem 
serao oferecidos em disquete. 



DSI na area educacional 



A DSI - Distribuidora de 
Sistemas e Informatica Ltda. — 
esta" expandindo suas atividades 
com a criaca"o da DSI Educacio- 
nal, empresa voltada para o ensi- 
no de cursos relacionados a area 
de Informatica, no Rio de Janei- 
ro. 

objetivo da nova empresa, 
segundo seu coordenador Clau* 
dio Trotta, e dar aos alunos um 
tratamento diferenciado. "A 
principal diferenca existente en- 
tre os nossos cursos e os outros 
e que, no nosso, os alunos po- 



dem ter quantas aulas comple- 
mentares desejarem sem pagar 
mais nada por isso." 

Os equipamentos usados nos 
cursos sera"o da Sid, Prologica e 
Microdigital e os methores alu- 
nos terao estigio garantido na 
pr6pria DSI Distribuidora. As 
inscric6"es para o cursode BASIC 
ja estao abertas e os interessados 
poderao obter informagoes pelo 
tel.: 284-3490 ou na Rua Mariz 
e Barros, 711, Tijuca, Rio de Ja- 
neiro. 



Analistas da ADP dao 
suporte de marketing 

A ADP Systems criou um Departamento de Suporte de Mar- 
keting constitui'do de analistas que tern como atividade principal 
estudar e levantar as necessidades reais de cada segmento do mer- 
cado e de cada cliente em particular. 

Um exemplo disso e o servico denominado Soluca"o Global, 
especi'fico para as empresas que tern um micro. Rotinas mais ela- 
boradas, como Folha de Pagamento, Contas a Pagar, Contabilida- 
de etc. sao feitas integralmente peio bureau da ADP, enquanto o 
micro efetua as rotinas superdinamicas, como faturamento, esto- 
que e relatorios financeiros. 



* A Microcraft, fabricante de placas da linha Apple, esta" lancando 
um mimieclado para tiqar a equipamentos compati'veis com Apple 
para utilizar;§o de Visicalc. Este teclado tern 24 teclas numericas e de 
funcoes. * Reconhecido como o melhor micro brasileiro de sua linha 
por um diaVio paulista, o TK 85 da Microdigital foi apontado por es- 
pecial istas da a>ea como o grande sucesso do mercado de 83. * A Soft 
Consultoria em Processamento de Dados Ltda. esta desenvolvendo o 
bDRM - Banco de Dados Relacional para Microcomputadores . O sis- 
tema e compati'vel com o DBASE II, mas, a partir da experiencia de 
tecnicos da Soft, apresenta novos comandos com base nas nossas ne- 
cessidades. bDRM sera comercial izado a partir de maio. * A Imares 
est3 comerciaiizando a placa de comunicacao Smcrona. Essa placa e 
utilizada para ligagoes entre microcomputadores da linha Apple e 
computadores de grande porte da IBM, com software BSC1 e BSC3. 
O preco do equipamento e de 220 ORTN e ele se encontra a venda 
nas lojas Imares de Sao Paulo. * Arnda nao havia chegado as lojas espe- 
cial izadas do Rio de Janeiro, em fevereiro, osdois novos tancamentos 
da Sysdata, o TColor, compati'vel com o TRS Color Computer e o 
Sysdata III, equipamento compati'vel com o TRS-80 modelo III, para 
aplicacoes mais profissionais. Segundo os lojistas ainda nao h3 previ- 
sa"o para o recebimento desses equipamentos. * Ja estao sendo comer- 
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cializadas as primeiras unidades de disco de 5 1/4" da Novo Tempo 
Ltda. para o micro Color 64, elaborado a partir do TRS-80 Color 
Computer. * A Execplan, Sao Paulo, colbcou no mercado o software 
MICRO FCS. Esse sistema, que rodava apenas em computadores de 
grande porte, agora esta em nova versSb para os compati'veis com o PC 
da IBM MICRO FCS e um software de planejamento empresaria! 
e de apoio a decisao e e um simulador de situacoes economico-finan- 
ceiras. A Compucenter jd forrnalizou um contrato para a comerciali- 
zacao e treinamento do MICRO FCS. * Ja estao em fase de instala- 
cao os 30 micros I 7000 da ftautec vendidos ao Senado Federal, Cada 
Sen3dor passa a dispor, em seu gabinete, de um micro capaz de armaze- 
nar e fornecer todos os dados de que precisar. equipamento tambem 
pode ser usado como terminal do computador central do Senado. *0 
novo Diretor-Presidente da PROD AM - Companhia de Processamen- 
to de Dados de Sa~o Paulo, Joaquim Carlos Gouvea, 4 engenheiro civil 
formado pela Escola Politdcnica da Universidade de Sao Paulo. Tern 
larga experiencia em cargos de direcao em area de processamento de 
dados em algumas das maiores empresas do pai's, onde coordenou 
a>eas de Q8iM, analise de sistemas, software, programacao e operaca"o 
de computadores. 
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A Microcontrol, empresa que 
at£ entao atuava na area de con- 
troladores de video, esta lancan- 
do o Applekh — kit de micro- 
computador, com componentes 
vendidos separadamente para a 
montagem de um equipamento 
compati'vel com Apple. 

Sao os seguintes os compo- 
nentes que ja" estao sendo ven- 
didos pela Microcontrol: Apple- 
kit 65000, placa de circuito im- 
presso (1 1 ORTN); 65010, con- 
junto de soquetes, conectores, 
reststores e capacitores (15 
ORTN); 65020, conjunto de 
s'emicoridutores, TTL's, LSI e 
memories (45 ORTN); 65100, 
conjunto de tectado alfanume>i- 
co com 52 tecfas e componen- 
tes, circuito impresso (23 
ORTN); 65200, fonte de ali- 
mentacao tipo chaveado (17 
ORTN); 65300, caixa de micro- 
computador em poliuretano 
(6,5 ORTN) e Applekit 65400, 
manual de montagem e teste de 
micro (3 ORTN). 

O sistema Applekit possui 
microprocessador 6502, memd- 
ria RAM de 48 Kbytes, expansf- 
vel ate 64 K e 12 Kbytes de 
ROM. Pode-se conectar ao Ap- 

Tesbi na Vila 

Ja esta funcionando no 
bairro carioca de Vila Isabel a 
nova loja da Tesbi, que ofere- 
ce cursos, rnanutencab deequi- 
pamentos, software pr6prio e 
de tercetros, livros e revistas 
especiaiizados e micros da Pro- 
ldgica, Microdigital, CDSE, Di- 
gitus e Dismac. 

A inauguracao da loja tam- 
bem marca a divisfo da Tesbi 
em duas empresas: Tesbi Enge- 
nbaria de Telecomunicacoes 
Ltda., que opera, ha sete anos 
nas areas de telefonta e radio- 
transmissao, e a nova Tesbi In- 
form^nca Ltda., local izada a 
Av. 28 de setembro, 266, loja 
110, CEP. 20.551, Riode Ja- 
neiro - RJ, tel.: (021) 284- 
6949. 



plekit um monitor de video 0u 
tefevisao rnodificada, operando 
em modo texto ou grafico. O 
sistema pode ser programado 
para emitir sons, tern sai'da para 
gravador cassete e para disc-dri- 
ves de 5 1/4" e permite conexa"o 
simuttanea para ate 8 cartoes 
perife>icos. Entre os cartoes ja 
disponi'veis, na prdpria Micro- 
control, esta"o interface paralela 
para impressora, cartfo para au- 
mentar a capacidade do terminal 
de vfdeo para 80 col u nas x 24 li- 
nhas, carta"o expansa"o de mernd- 
ria RAM, de 128 Kbytes, cartao 
de interface para quatro disque- 
tes de 5 1 14", interface para 
transmissa"o de dados por Imha 
telefonica, buffer com 32 Kby- 
tes, conversor A/D e D/A com 
16 canais de entrada e sai'das, 
sintetizador de voz, cartao com 
processador 8088 de 16 bits, 
controlador de disquetes de 8" 
e interface inteligente com sai'- 
das paralela e serial e real time 
e clock calendaTio. 

Maiores informac&es sobre o 
Applekit e os cartoes perifericos 
podem ser obtidas na pr6pria 
Microcontrol, em Sao Paulo, 
pelos telefones {011) 814-0446 
e 814-1 110. 



Troca de informa9oes 
e facilidades de compra 

Inaugurado recentemente em Belo Horizonte, o Micro Clube do 
Brasil tern como objetivo aproximar os atuais e futuros usuarios de 
microcomputadores para a troca de ideias, informacoes, experiencias e 
tecnologia. Segundo os dirigentes da entidade, essa aproximacad serS 
feita atrav^s de reunifies, palestras, cursos e uma biblioteca tecnica es- 
pecializada. 

O clube abrange todos os tipos de equipamentos nacionats (que es- 
tarao expostos no seu showroom) e, para fomentar o uso dessas ma- 
quinas, serao oferecidas aos associados condip6es especiais para a aqui- 
sicao de hardware, software e acessdrios, mediante acordos diretos 
com fabricantes on representantes. Micro Clube do Brasil fica na 
Rua Parai'ba, 1441, lojas 6 e 8, Savassi, Belo Horizonte - MG, CEP. 
30000, tels.: (031) 225-2617/1973. 

CP/M para CP-500 

Um dispositive que torna o CP-500 compati'vel com o Sistema 
Operacional CP/M versao 2.2 e amplia o vi'deo para 80 colunas por 24 
linbas e a novidade que a PS) — Projetos e Services em Informatica 
est4 colocando no mercado. 

Este novo produto, PSI-M, e baseado no controlador 6845 da Mo- 
torola, que passa a efetuar todas as funcSes de geraca"o e formatacao 
de video. Pode ser encontrado nas versoes com 16 ou 64 Kbytes de 
RAM, que sao somadas aos 48 Kbytes ja existentes no CP-500. Apre- 
senta ainda possibitidade de utilizacao de diversos sistemas operacio- 
nais (CP/M, DOS500, NEWDOS etc.}, gracas a um firmware prdprio, 
coniido em EPROM de 4 Kbytes. 

Acompanham o PSI-M dois manuais completos (de instalacao e de 
utilizacao) juntamente com um disquete, contendo um sistema opera- 
cional compati'vel com o CP/M versao 2.2 e diversos utilitarios, inclu- 
sive algumas rotmas especiais para compatibiiizar o CP-500, em ter- 
mos de formatacao de disquetes, com outros equipamentos (IBM, 
Apple, Sistema 700, etc.), tornando possi'vel a leitura/gravacao de ar- 
quivos nas formatacoes mais comuns. 



Em 
Contagem, 

a Bell 
do Brasil 



Inaugurada na cidade de Con- 
tagem, Minas Gerais, a Bell do 
Brasil, uma loja de microcompu- 
tadores, conta com um show- 
room para vendas e demonstra- 
cdes de micros, como o Naja e 
os da Proldgica, alem de um la- 
borat6rio de pesquisa para de- 
senvolvimento de projetos e na- 
cional izacao de equ ipamen tos 
eletrdnicos. 



A loja esta oferecendo tam- 
bem curso de linguagem BASIC, 
com duracao de 70 horas, divi- 
dido em tres etapas: 8ASIC-Teo- 
rico, BASIC-Audiovtsual, BASIC- 
Prdtico. O curso e noturno e sSo 
utilizados os comput adores Naja 
e os da Proldgica. Maiores infor- 
macSes na Av, Joao A. da Fon- 
secaSilva, 1131. Tel. : (031) 351- 
3236. 



Conserva^ao de disquete 



Para os usuarios de disque- 
tes, Paulo Neves, tecnico da Da- 
ta Ribbon, da os seguintes con- 
selhos: mante-los sempre dentro 
do envelope e seguir as instru- 



coes que vem no mesmo. Esse 
envelope, com o disquete, deve 
ser conservado em lugar fresco e 
sem pd, pois funciona como um 



disco comum; o p6 pode causar 
alteracSes. Para a limpezadaca- 
beca do drive o unico produto 
existente e* o gas treon. 



Sistemas da Ramo 



A Ramo Sistemas Digitals de Sao Paulo estd comercializando 
os seguintes programas: Aplicacdes no Mercado Financeiro, que 
controla creditos e debitos de clientes, a valorizaca"o e controle 
de vencimentos de aplicacoes e papeis; esse programa, roda no 
1-7000 da liautec, Sistemas 700 e 600 da Proldgica. Acurso <& um 
sistema conversacional par3 controle de notas, materias e alunos; 
esse programa roda no CP-500, Jr Sysdata, DGT-100e Naja. Cli- 
entes e um programa que compoe cadastros, possibilitaa edicao 
de fichas, e elimina a necessidade de manuais complicados;roda 
no 1-7000 da Itautec, Sistemas 600 e 700 da Proldgica, CP-500, 
Naja e Jr Sysdata. Custos Industrials £ um sistema conversacional 
para a elaboracao dos custos industrials; roda no 1-7000 da Itau- 
tec e Sistemas 600 e 700 da Proldgica. Estoque e um sistema 
conversacional que gerencia financeiramente e fisicamente esto- 



ques, e acompanha a valorizacao dos produtos; roda no 1-7000 
da Itautec, Sistemas 600 e 700 da Proldgica, CP-500, DGT-100, 
Naja e Jr Sysdata. ExptosSo de materials controla pedidos, faz 
caJculos, programacao de material e ma'o-de-obra necessaria para 
fabricacao; o sistema roda no 1-7000 da Itautec, nos Sistemas 
600 e 700 da Proldgica, CP-500, DGT-100, Naja e Sysdata. Cust- 
Cons — Orcamento e Cronograma e Custo de Obras, o sistema 
acompanha o decurso de uma obra desde o projeto atS a fase fi- 
nal; roda no 1-7000 da Itautec e nos sistemas 600 e 700 da Pro- 
ldgica. Pedidos permite o controle de pedidos, orientando o 
usuario quanto a prazos de entrega e quantidade; o sistema roda 
no 1-7000 da Itautec, Sistemas 600 e 700 da Proldgica, CP-500, 
Digitus, Naja e Sysdata. O endereco da Ramo e Rua Dep. Lacer- 
da Franco. 120, conj. 52, tel.: (011) 211-3119, Sao Paulo. 
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I APP LEKIT 650 QO] Placa de c ircuito impresso. [APPLEKIT 650101 Conjunto de soquetes, conectores, resist ores e ca- 
pacitores. I APPLEKIT 65020] Conjunto de semicondutores, TTL's, LSI e memorias (As memorias EPROM sao forneci- 
das com gravaci io). | APPLE KIT 65100 1 Conjunto de teclado alfan umerico com 52 tec las e componentes, circuito im- 
presso. l^PLEKlT^20iJj Fonte de alimentacao tipo chaveado. 1 APPLEKIT 65300 1 Caixa de microcomputador em 
poliuretano. APPLEKIT 65400 Manual de montagem e teste de micro. 
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APPLEKIT e 100% compativel com os cartoes perifericos da MICROCRAFT. 



Apple i marca rpgistradii de Apple lru- 



Que tal prat tear certos conceitos de Fisica? Voce pode comecar por este 
programa, que Simula na iinha Sinclair o lancamento obliquo de projeteis 



Estude Fisica 
com o micro 



Jorge Santana de Oiiveira 



Adificuldade encontrada pela maior parte dos alunos 
do 29 grau em assimilar conceitos basicos de Fisica 
tern muito a ver com a quase total ausencia de aulas 
praticas, indiscutivelmente urn complemento essen- 
cial a exposicao teorica quando se tern em vista uma perfeita 
compreensao do fenomeno fi'sico. 

Neste particular, o microcomputador se transforma em uma 
altemativa diditica relevante, considerando a possibilidade 
que este oferece de simular movimentos, alguns dos quais de 
dificil demonstra^ao mesmo quando se dispoe de laboratorio 
de ensino. 

Movimentos como a Queda Livre e o lancamento Obliquo 
de Projeteis sao visualizados, quando muito, at raves de fotogra- 
fias estroboscopicas, recurso que apresenta como inconvenien- 
cia a sua estaticidade, ou seja, o movimento e apresentado 
pronto, ao passo que o microcomputador proporciona a repro- 
ducao do movimento semelhante a sua ocorrencia real. 

O programa que ora apresentamos roda nos equipamentos 
da Iinha Sinclair e Simula o Lancamento Obliquo de Proje- 
teis, permitindo a visualizaca~o de caracteristicas basicas deste 
movimento, algurnas das quais chegam a contradizer o senso 
comum do estudante, criando um impasse na sua aceitacao. 

DESCRICAO DO MOVIMENTO 

Lancamento Obliquo de Projeteis consiste no movimento 
de um corpo lantjado com uma velocidade inicial v que forma 
um angulo 8 (teta) com a horizontal. 

Admitindo que o movimento ocorra no vacuo e nas proxi- 
midades do solo, observa-se que ele e o resultado da composi- 
930 de dois outros movimentos em ocorrencia simultanea: um 
movimento retilineo e uniforme e um lancamento vertical, 
regidos pelas equa^oes horarias: 
• movimento retili'neo e uniforme: x=(v. cos8) .t 
« lancamento vertical :y= (v. sen0) t -0.5gt 2 





Figure 2 



Figure 4 



Por sua vez, a equacao da trajetoria e dada por: y = (tan 

) .x - (g/ (2, v 2 .cos 2 )) -x 2 , correspondente a uma pa- 
rabola. 

A distancia horizontal maxima atingida pelo projetil e deno- 
minada alcance, indicada por A, cujo valor e dado pela ex- 
pressao: A= ( v 2 . sen 20) /g- 

Nao e dificil demonstrar matematicamente as seguintes 
caracteristicas: 

I - O alcance aumenta com o aumento do angulo de lan- 
camento no intervalo de 09 a 459. Em 459 o alcance e maxi- 
mo, e a partirdai'decresce ate atingir o valor minimo em 909 
(A=0). 

11 - A altura maxima aumenta com o aumento do angulo de 
lancamento. 
Ill - Para angulos complementares (aqueles cuja soma vale 
909) u alcance e o mesmo. 

UTIUZACAO DO PROGRAMA 

programa foi formulado para sobrepor dois lancamentos. 
A velocidade de lancamento teve seu valor fixado em 10 m/s, 
de forma que o unico parametro de en trad a e o angulo de lan- 
camento {em graus), pedido sob a fonna ANG. 1 =? e depois 
ANG. 2 =?, tendo em vista que a cada rodada serao simulados 
dois movimentos (figura 1 ). 

Com a utiliza^ao do programa, as caracteristicas 1, II c III 
podem ser facilmente visualizadas. Por exemplo: 

1 - Fazendo ANG. 1 - 309 e ANG. 2=459. e depois ANG. 

1 = 459 e ANG. 2= 609, as caracteristicas I e II sao claramente 
observadas (figuras 2 e 3). 

2 - Fazendo ANG. 1 - 409 e ANG. 2=509, a caracteristica 
III fica perfeitamente visualizada (figura 4). 

Uma restricao deve ser obscrvada: devido as limitacoes da 
tela e a baixa resolucao dos equipamentos da Iinha Sinclair, 



Lancamento obliquo 



5 

10 

RA" 

15 

20 

25 

30 

35 

40 

45 

50 

55 

60 

65 

70 

75 

80 

85 

90 

95 

100 

105 

110 

115 

120 



REM "LANCAMENTO OBLIQUO" 
REM "AUTOR: JORGE S. OLIVE I 



DIM Y(30) 
DIM T(2) 
FOR 1=0 TO 31 
21,1 



"E" 



LET 
LET 
LET 
LET 
FOR 
LET 
LET 



(2*TETA) 
2*A+0.0001) 



PRINT AT 
NEXT I 
PLOT 10,1 
FOR J=l TO 2 

PRINT AT J,0; "ANG. ";J; "= ?" 
INPUT T(J} 
PRINT AT J,7;T ( J) 
PRINT AT 2,20;"AGUARDE" 
FOR L=l TO 30 
NEXT L 
FAST 

LET TETA-T(J) *PI/180 
A=10*SIN 
N=INT (2 
INCX=A/N 
X-0 

1=1 TO N 
X=X+INCX 

Y (I) =X*TAN (TETA) -0 
X**2/(COS (TETA) ) **2 
125 NEXT I 

130 PRINT AT 2,20; " " 
135 SLOW 

140 FOR L=l TO 30 
145 NEXT L 
150 FOR 1=1 TO N 
155 PLOT 2*1+10, 11. 2*Y(I)+1 
160 NEXT I 

165 IF J=l THfiN NEXT J 
170 STOP 

175 SAVE "LANCAMENTO" 
180 RUN 
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o programa foi elaborado para ser utilizado com uma boa reso- 
lucao grafica para angulos de lancamento entre 309 e 609. 
Abaixo de 309, a resolucao torna-se ruim e acima de 609 a al- 
tura maxima extrapola os limites da tela. Lembramos, contu- 
do, que esta restricao £ imprescindfvel se desejarrnos a obten- 
?ao de trajetorias semelh antes as reais, alem do que el a nao 
compromete os objetivos a que visa o programa. 

Na listagem, na Iinha 95, o numero 2.2 funciona como uma 
escala horizontal, compatibilizando a abscissa da tela com o al- 
cance fornecido pela formula. Da mesma forma age o numero 
1 1 .2 na Iinha 155, sendo que com relacao as ordenadas. 



Jorge Santana de Oiiveira 4 estudante do ultimo ano de Engenharia Ci- 
vil na Universidade Federal de Sergipe, onde trabalha como te"cnico de 
Laboratdrio de Fisica, e professor de Fisica do Cole'gio de CWncia Pura 
e Aplicada - CCPA, em Aracaju. 
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Seu programa nao funcionou? Nao consegue achar o erro? Nao se desespere. 
Com calma (e atgumas tecnicas), tudo se resolve 



Na trilha dos erros 
de programa^ao 



Roberto Quito de Sant'Anna 



Um dos momentos mais criticos da arte de programa r c 
aquele em que o programador, apos algumas horas de 
bolacao, fluxogramas e digitacao, cheio de expectativu 
digita RUN e ENTER. A partir daf, dependendo de 
varios fatores, entre os quais sorte e experiencia, o resultado 
pode variar desde um suspiro de ali'vio (se o programa 
executou corretamente) ate o que pode ser o inicio.de uma 
verdadeira via cruris, na qual inuitas horas serSo consumidas 
e muitos cabelos arrancados ate que o programa venha a 
funcionar - se e que funcionara algum dia... 

Este artigo, fruto de muita viveneia e leitura, tern por 
objetivo fornecer subsidios a iniciantes e iniciados para que, 
de forma sistematica, possam mais rapidamente tornar seus 
programas operacionais. 

A meu ver, a recomendacao fundamental - e que alias 
nada tern a ver com programacao - e" a seguinte: jamais gaste 
mais de vinte ou trinta minutos tentando descobrir um erro. 
Aqueles que, como eu, so comecam a produzir a plena carga 
depois das onze da noite, arriscam-se a passar toda uma noite 
em claro sem chegar a qualquer conclusao, pois, apos um 
certo numcro de tentativas, e comum ficarmos cegos e 
passarmos repetidamente por cima do erro sem ve-lo. Em vez 
de insistir, finja desistir, ocupe-se com outra coisa e, mais 
cedo ou mais tarde, a luz vira ou, pelo menos, voce descobrira 
uma nova maneira de atacar o problema. 

Habitue -se a mostrar o seu problema a uma outra pessoa, 
mcsmo leiga no assunto: a calma dos ignorantes (no bom 
sentido, e claro) sempre funciona e € comum ouvir-se uma 
pergunta tipo - "Por que o ozinho do G0SUB esta com um 
tracinho no meio?"... Se tal pessoa tambem entende do 
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assunto, melhor ainda - duas cabe^as sempre pensam (ou 
erram. . .) melhor que uma. 

Se voce esta digitando a partir de uma revista, cuidado 
com os erros de impressao. Leia sempre as erratas, mesmo 
dos artigos que hoje nao lhe interessam, e faca todas as 
alteracoes necessarias na edi^ao original. Se a revista 6 
recente e seus conhecimentos nao forem suficientes para 
achar o goto, escreva ou telefone a redaca*o - os editores 
tern como ponto de honra prestar toda a assistencia aos seus 
leitores. Por outro lado, se voce conseguir pegar algum 
bichano, garanta a sua boa acao do dia, comunicando o fato 
imediatamente a reda^ao. 

Analise atentamente as mensagens de erro, observando 
tambem as duas ou tres linhas que antecedem a que la em que o 
erro foi acusado. Se a linha lhe parecer absolutamente normal, 
experimente digita-la novamente - voce pode, sem querer, 
ter digjtado > e iniciado uma nova linha, que foi 
interpretada como continuacao da anterior. 

Especial fssima atencao as linhas que tenham sido editadas. 
Digamos que voce cmpregou nC para substituir caracteres em 
uma linha e, devido a um engano, teve que usar «- 
(retrocesso) em vez de substituir o carater re c£m- digita do. 
O que voce fez foi introduzir na linha o codigo de retrocesso 
que, obviamente, sera" um corpo estranho. ocasionando, no 
minimo, um erro de sintaxe. 

Se o seu equipamento e compati'vel com o TRS-80, 
habitue -se a usar nomes de variaveis com apenas dois 
caracteres. o primeiro uma letra. Embora nao haja restricao 
a quantidade de caracteres do nome de uma variavel, o 
interpretador somente considera os dois primeiros, o que leva 
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freqiientemente a erros (aparentemente) absurdos, 
principalmente o de divisao por zero. Ha pouco tempo, um 
programa que tinha as variaveis L01 (longitude de origem), 
L02 (longitude de destino) e L0DIF ( = L02 — L01) quase me 
fez baixar ao hospital. . . 

PREVINA ANTES DE REMEDIAR 

Os piores problemas sSo, sem duvida, os erros de logica: eles 
nao ocasionam mensagem de erro. Neste caso, uma das 
solucoes e apelar para as funcoes TRON e TROFF 
(Trace ON/OFF). A funcao TRON faz com que o numero de 
cada linha executada seja mostrado na tela entre os simbolos 
< e > . 

Antes de apelar para TRON, e importante 
procurar isolar ao maximo 

a provavel regiSo do erro, usando-a no trecho estritamente 
necessario, sob pena. especialmente em programas com 
multiplos desvios e laeos FOR-NEXT encaixados, de receber 
um emaranhado de numeros absolutamente indecifraveis. 
Costumo substituir TRON e TROFF por diversos STOP 
colocados em pontos estrategjcos, em regioes suspeitas do 
programa; feita a parada (BREAK na. . .), posso checar os 
valores de todas as variaveis por meio de PRINT no modo 
direto e, se tudo estiver de acordo ate ali, prosseguir na 
execucao digitando CO NT e ENTER. Esta tecnica, muito 
eficaz por permitir o acompanhamento passo a passo do 
programa, pode vir a tornar-se tediosa quando usada no 
interior de laeos FOR-NEXT; neste caso, prefiro substituir os 
STOP por uma linha temporaria do tipo 
PRINT I. A, B, C: GOSUB 10000 (onde I e sempre a variavel de 
controle do laco e A, B e C representam as variaveis que quero 
acompanhar) e, ao final do programa, colocar esta sub-rotina: 

10000 PRINT " APERTE QUALQUER TE 
CLA PARA CONTINUAR" 



10001 IF INKEY$ = "" 
ELSE RETURN 



GOTO 10001 



Use e abuse das sub-rotinas sempre que determinado grupo 
de instrucSes for usado mais de uma vez. Se voce subdividir 
seus programas em modulos pequenos, vera que e" muito mais 
facil circunscrever e eliminar erros, considerando cada modulo 
como um pequeno programa que pode ser executado por meio 
de RUN n. 

Se voce quiser eliminar temporariamente alguma linha, em 
vez de apaga-la e digita-la novamente, use o comando EDIT 
e o subcomando I para inserir um REM ou ' (SHIFT 7) no 
inicio da mesma; terminada a experiencia, use novamente 
EDIT para voltar a condicao inicial. Isto e particularmente util 
quando na"o se dispfie de uma listagem do programa, de uma 
copia em disco ou. principalmente, quando se usam micros 
versao cassete. 

Finalmente, venca a tenta^ao de programar em cima da 
perna. direto no micro. Obrigue-se, mesmo que voce ainda nao 
saiba. a fazer um fluxograma, por mais simples que pare 9a o 
programa. Logo voce vera que tempo dispendido em fazer 
nem que seja uma garatu'ja da sua logica resultara em uma 
diminuicao acentuada ou mesmo eliminacao dos erros de 
logica. Na era da comunicacao, tenha sempre em mente que 
"uma imagem vale mais que mil palavras". . . e boa sorte ! B 



Roberto Quito de Sant'Anna & engenheiro de telecomunicagoes, for- 
mado pelo Instituto MM tar de Engenharia, Professor da cadeira de In- 
forma' tica da Academia Mill tar das Agulhas Negras r desde agosto de 
1982 4 tambim colaborador da MICRO-MAXI Computadores e Siste- 
mas. comi enatista de sistemas. 
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LIVRARIA SISTEMA 

LOJA: AV. SAO LUtZ, 187 - LOJA 8 - 1a. S/L. 

GALERIAMETROPOLE 

FONES: 01 1 257-6118 259-1503 SAOPAULO 

SEMPRE NOVIDADES1 



TECNOLOGIA DA INFORMACAO um guie p/empresas, ge 

rentes e admin istrad or *s Eaton 9.500. 

INTRODUCAO A LINGUAGEM BASiC P/MICROCOMPUTA. 

DORES • L»d«rman . . . - 9.200, 

APPLE II GUIA DO USUARIO - Poolt 14.400, 

THE CREATIVE TRS-80- Mwur 34,000. 

ESPECt f I CACAO DE SISTEMAS- Wateri 6.500, 

MACHINE LANGUAGE PROGRAMMING MADE SIMPLE 
FOR YOUR SINCLAIR & TIME* TS-10O0 Melbourne . . 3O.0OO. 
EXPLORER'S GUIDE TO THE ZX.81 AND TIMEX SIN- 
CLAIR 1000 ■ Lorde 30 0O0. 

THE BEST OF SYNC ■ Grosjean 23.000, 

CP/M GUIA DO USUARIO - Hogan 8 800. 

MAKING THE MOST OR YOUR ZX81 ■ Hiflnell 25.000, 

44 DYNAMIC ZX-81 games and recreations . Davief 50 000, 

BASIC ENGINEERING AND SCIENTIFIC PROGRAMS FOR 

THE IBM PC WoHe 46 000, 

IBM PC ASSEMBLY LANGUAGE: guide for programmer* 

Scanlon . . . 46.000. 

BUSINESS PROBLEM SOLVING WITH THE IBM PC & XT. 46 000, 
ATARI PILOT; activities and game* - Kohl , ... 34 000, 
TRS-80 ASSEMBLY LANGUAGE modal III: a complete cour- 
se in assembly language programming ■ Howe 46.000. 

MORE BASIC COMPUTER GAMES - Ahl 18 000, 

BASIC MICROCOMPUTER GAMES- AM 18.000. 

COMPUTADORES E PROGRAMACAO: 307 problemas resol- 

vidoi 215 problemas propostos Scheid 6.700, 

INTRODUCAO A SEGURANCA DO COMPUTADOR- Wood 5.400, 
THE APPLE HOUSE how to computerize your home uung 

your apple computer - Blankanship 41 000, 

MASTERING MACHINE CODE ON YOUR TlMEX SINCLAIR 

1500/1000 -Baker ... 27.500. 

WRITE YOUR OWN APPLE GAMES Ansl* . . 30 000, 

USING DBASE II - Townsend 44 000. 

PROGRAMACAO EM ASSEMBLER E LINGUAGEM OE MA- 

QUINA -Alexander 5.800, 

THE CREATIVE APPLE Peluarski 37 000, 
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ATENDEMOS POR REEMBOLSO POSTAL COHREKWARIG If ora capital) 

PEDIOOS: CAIXA POSTAL 9280 

CEP 01051 - SP. 
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CIBERNE 



lo SOf IWAH£ QUE VOCE MEBfCE 



CIBERNE 4 a mais avancada e sofisticada linha de sotfware para mtcrocomputadores, cnada 
para livrar voci dot inconvenientes de producSes amadoras ou de origem duvidosa Com 
CIBERNE voce 1 tera uma dtverstficada linha de programas novos, lancados per iodic a mente 
em pacotes economicos. Com gravacao profissional e em embalagem invioUvel, CIBERNE 
oferece a voce garantia total em oualQuer lugar do Brasil 




PROGRAMAS EM FITA PARA TK-82, 83,85, CP 200 E COMPATfVEIS 



FLASH SISTEM que r* 



lBmmsm 



- < jogos y 



S*m qudquw (cHKimc no pn^o vuct tiKumii 
•ntrvtmiimnto. U» joyftick ou t«cl-ido. 
BICHOS A CIA PATRULKA GALAcTICA 



adi fit* 6 HCiurrto iOft para teu liier a 
nvtirrum * atinxRto 



COMBATE 



■ CASCA, A COBRA 
a CBA2Y KONG 

■ CENTOPElA 

■ FRQGGEfi 
a SUCURI 



■ NAVEMAE ■ NIGHT GUNNER 

a FUNGOSMUTANTES ■ ALERTA VEHMELHO 

a GAUATICA a POLARIS 

■ SOSVEGAIII ■ DUELO 

■ PERSEGUIDOR ■ SCRAMBLE 



a PIRAMIDE i MCA 

a SABOT AGEM 

a AVENruREinO 

a MAZOGS 

a USS ENTERPRISE 



- ( utiutArios > - 



fOI-PKa 



■ SOG ■ Urtii fvovi e rn»u poderou »eriio d* ROT I 
b wu «r.v3cioniJ Side ma Operaoonal Gritico 
. a MERGE 
► PARA BREVE 



ASSEMBLER 
OESASSEMBLER 
COMPILAOOR BASIC 



• OMERCADOR a ESTRELANEGRA 

a STARCHIEST a CRISTAL MAciCO 

a ZARAkS a GUERRILHACOSMICA 



• OftCA I lOrcamamodomiHiico! 
a ARO I lArquivods Djdtul 
a CASHFLOW 



EM TODO O BRASIL (MAS MELHORES LOJAS DO RAMO. 



Informacoes, Distribuioao e Vendas: 

JV A- MICROCOMPUTADORES LTDA. 

Av, Graga Aranha. 145 s/loja 01 - Rio de Janeiro - RJ 
CEP20.030 Tel.: (021 ) 262-3968 



Nest a segunda e ultima parte, um jogo egipcio, escrito em BASIC para a linha 
TRS-80, exemplificara o uso das teen ic as abordadas no numero anterior 



Inteligencia Artificial - II 



Antonio Costa 



Na primeira parte deste aitigo, 
publicada em MICRO SISTE- 
MAS n° 29, analisamos o al- 
goritmo Minimax e a poda 
ALFA-BETA. Desta vez, fmalizando, es- 
tudaremos como usar o referido algo- 
ritmo na implementacao de jogos. Para 
tal, usaremos o jogb da Mancala, o qual 
sera' visto mais adiante (isto nao implica- 
xi na perda de generalidade, visto que 
todos os programas de jogos tern a mes- 
ma estrutura). 

leitor provavelmente perguntara: 
"Se a escolha do jogo nao afeta os resul- 
tados de nosso estudo, por que nao usar 
um que seja mais popular do que a Man- 
cala n . Por que nao usar xadrez, por 
exemplo?" Ha varias razdes para nao 
usarmos xadrez. Uma delas e que decidi- 
mos escrever nosso programa em BASIC 
interpretado, uma linguagem lenta. obs- 
cura e ineficiente. A lentidSo do BASIC 
faria com que nosso programa levasse 
horas para interpretar um lance de xa- 
drez; a ineficiencia tomaria impossivel 
col o car um programa de xadrez decente 
na memoria do microcomputador e, fi- 
naimente, a obscuridade impediria o lei- 
tor de en tender nosso programa. 

E por que escolher o BASIC? Por que 
nao usar o RLISP ou o SAIL? Porque 
BASIC tern uma qualidade que compen- 
sa seus graves defeitos : e uma linguagem 
conhecida por um jgrande numero de 
programadores profissionais. 

LINGUAGEM DE MAQUINA, 
NEM SEMPRE 

Antes de prosseguir, gostan'amos de 
discutir um assunto de grande interesse 



para todos os programadores, Trata-se 
da linguagem de maquina. Todo inician- 
te comeca aprendendo BASIC e, ao es- 
barrar nas limitacSes desta linguagem. 



tenta aprender linguagem de maquina. 
Isto e" um erro grave. . . 

Um bom programador nunca usa lin- 
guagem de maquina a nao ser para ini- 



Mancala 



10 REM JOGADOR DE MANCALA 

200 DIM PILHA(SOO) ,TA<13> 

210 CLS 

220 PRINT "===* DEMONSTRACAO DA RODA ALFA BETA *===" 

230 PRINT •'===* USANDO ANTIG0 JOGD DA MANCALA *===" 

240 PRINT 

250 INPUT "QUANT05 LANCES TERA JOGO" ; LA 

260 INPUT "EM DUE NIVEL AVALIADOR ESTATICO VAI ATUAR"; MNI 

270 INPUT "VOCE QUER CDMECAR <5/N) " ; R* 

280 TA(0>=0:TA(13)=0 

290 FOR J=l TO 12:TA<J)=4:NEXT J 

300 GOSUB BOOO 

310 IF R*="N" THEN 360 

320 INPUT "DUAL E' SEU LANCE" JIM 

330 IF IM>6 OR IM<1 THEN PRINT "LANCES DEVEM ESTAR ENTRE 1 E 6' 

:GOTO 320 
340 IM=IM+6:PTS=13:60SUB 7000 
350 GOSUB 8000 
360 FOR L=l TO LA 
370 
380 
390 
■100 
410 
420 

•-: ■ 

435 
437 

440 
450 



0= 1 : GOSUB 4000 

IF NT=0 THEN PRINT "ESTQU SEM MOVIMENTOS 

BETA=999: ALFA=-999 : N I -©: PP=0 

GUSUB 90G: PRINT 

PRINT "MEU LANCE E* " ; ML 

IM=ML:FTS=0:GOSUB 7000 

GOSUB SOOO 

0=7: GOSUB 4000 

IF NT=0 THEN PRINT "VOCE ESTA SEM MOVEMENTO 

INPUT "DUAL SEU LANCE"; IM 

IM=IM+6:PTS=13:G0SUB 7000 

GOSUB 8000 



GOTO 435 



GOTO 470 



THEN PRINT "GANHEI" 
THEN PRINT "GANHASTE" 



460 

470 NfcXT L 

480 IF TA(O) >TA(13) 

490 IF TA<0)<TACI3) 

500 IF TA(0)=TA<13) THEN PRINT "EMPATAMQS" 

510 END 

900 REM MAXIMIZADOR 

930 IF NI=MNI THEN GOSUB 3000:RETURN 

940 Q=l: GOSUB 4000 
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A estrutura de nosso programa, escrito 
para a linha TRS-80, e comum a qual- 
quer programa-jogo. Lis o seus pontos 
principals: 

• Linhas 360 a 470: estas linhas constituent 
um grupo de instrucdes que devem ser repcti- 
das ate terminar o jogo; 

• Linha 37(>: o computador chama o gerador 
de movimentos, que coloca na variavel NT o 
numero de movimentos disponiveis. Se NT=0, 
a maquina passa a iniciativa ao jogador huma- 
ne = i informa ao gerador que desejamos 
os movimentos do computador; 

• Linhas 390 c 400: o computador pede ao 
Maximizador que escolha um movimento; 

• Linha 420: a rotina 7000 e chamada para 
fazer o movimento escolhido. IM indka a esta 
rotina que casa dove ser movimentada. TA 
(1 12) contem o tabuleiro. TA (0) con- 
tern as pecas capturadas pelo jogador humano. 
PTS =0 indica que as pecas capturadas devem 
ser postas em TA (0) e, portanto, que o lance 
e do computador; 

• Linha 430: a rotina 8000 im prime o tabu- 
leiro; 



• Linha 433: a rotina 4000 e chamada para 
verificar se o jogador humano tern movimen- 
to. = 7 indica que a verificacao deve ser ini- 
ciada em TA (7), isto e, na primeira casa do 
lado do jogador humano; 

• Linha 440: o lance do jogador humano e 
lido; 

• Linha 450: como as casas do jogador hu- 
mano estio em TA (7 12) e o valor lido 

em IM esta en tie 1 e 6, somamos 6 a IM de 
modo a obter a posicao em TA ocupada pela 
casa escolhida. PTS -13 indica que as pedras 
capturadas devem ser postas em TA (13). Fi- 
nalmente, GOSUB 7000 realiza o movimento 
escolhido pelo jogador humano; 

• Linhas 900 a 1070: contem o Maxim iza- 
dor, cujo funcionamento e explicado na pri- 
meira parte deste aitigo (MICRO SI STEM AS 
n9 29); 

• Linha 930: o Avaliador-estatjco e invoca- 
do se estivermos examinando uma folha; 

• Linha 940: o Gerador-de-movimentos e" 
invocado. Apos a Jevolucao do controle, NT 



con t era o numero de movimentos gerados e 
LCS(1 NT) estara com os movimentos; 

• Linha 950: se NT =0, o Avaliador-estati- 
co echamado; 

• Linha* 970 a 1050 :*os lances contidos em 
LCS sao exam in ados: 

• Linhas 2000 a 2180: contem o Minim iza- 
dor; 

• Linhas 3000 a 3020: contem o A vaJiador- 
esta'lico (como a final idade do artigo nao e 
discutir a avaliacao estitica, fizemos um ava- 
liador bem simples); 

• Linhas 4000 a 4050 : Gerador-de-movimen- 

tos - coloca em LCS(1 NT) todos os 

lances disponiveis entre TA(Q) e TA(Q+5); 

• Linhas 7000 a 7150:geram o movimento 
apontado por IM. Se IM estiver entre I e 6,o 
movimento e do computador. Se IM estiver 
entre 7 e 12, o movimento e do jogador hu- 
mano; 

• Linhas 8000 a 8090: imprimem o tabulei- 
ro. 



ciar o processo de bootstrap de compi- 
1 ado res. Programas em linguagem de ma- 
quina sao de difi'cil manutenca"o e na~o 
confiaveis (no sentido de que podem 
conter erros causadores de com porta- 
mento erratico). "Mas", perguntara o 
leitor, "e se eu quiser escrever progra- 
mas ripidos e eficientes? Nao 6 necessa- 
rio usar linguagem de maquina?" A res- 
posta e nao! Use um bom compilador 
com otimizador. 

Mas o que e um compilador com oti- 
mizador? Um compilador e um progra- 
ma que traduz programas escritos em 
linguagem de alto nivel (como BASIC, 
Pascal ou LISP) para linguagem de ma- 
quina. programa em linguagem de ma- 
quina resultante da aca"o do compilador 
e chamado eddigp objeto. Geralmente, 
porem, o codigo objeto nao e ta"o efi- 
ciente quanto um programa escrito dire- 
tamente em linguagem de maquina. Ai 
entra em acab o otimizador. Ele modi- 
fica o codigo objeto para toma-lo rapido 
e faze-lo usar a menor quantidade de 
memoria possivel. 

£ necessirio ter muito cuidado na 
compra de um compilador. A maioria 
dos compiladores BASIC existentes no 
mercado nao sa"o bons. Isto porque a 
sintaxe do BASIC 6 muito com pie xa, 
tomando dificil para quern constroi 
compiladores escrever o otimizador. E 
como o codigo objeto na"o e otimizado, 
ele ocupa muita mem6ria. A drea ocupa- 
da pelo codigo objeto dos compiladores 
Z-BASIC e ACCELL, por exemplo, 
pode ser ate 50% maior do que a ocupa- 
da pelo programa original. 

Apesar de na"o existirem bons compi- 
ladores BASIC para microcomputadores 
pessoais, existem excelentes compilado- 
res Pascal, RPN, LISP e FORTH. 
ALCOR PASCAL com gerador de codi- 



go nativo e com otimizador, por exem- 
plo, e" muito bom. 

MANCALA 

jogo da Mancala parece ter-se ori- 
ginado no antigo Egjto. Tabuleiros deste 



jogo foram encontrados no templo de 
Kuma (construi'do por volta do ano 
1400 antes de nossa era). Apesar de ta"o 
antigo, este jogo ainda 6 popular na 
Africa, na India e no Ceilao. 

Existem varias modalidades de Man- 
cala, mas discutiremos apenas uma de- 



V50 IF NT=0 THEN BOSUB 3000: RETURN 
960 ALFA=-999: PRINT " NIVEL "JNI; 
970 FOR 1=1 TO NT 



980 
990 
l< >0 

1010 
1020 
1030 

1040 



IF ALFA>=BETA THEN I=NT:PRINT" ALFA 

GOSUB 5000 

NI=NI+1 

IM=LCS(I) :PTS=0: GOSUB 7000 

60SUB 200O 

GOSUB 6000 

IF VA>ALFA THEN ALFA=UA: ML=LCS C I ) 
1050 NEXT I 
1060 >JA=ALFA 
1070 RETURN 
2000 REM MINIMI 2ADQR 

2040 IF NI=MNI THEN BOSUB 3000: RETURN 
2050 Q--7: BOSUB 4000 

2060 IF NT=0 THEN GOSUB 3000: RETURN 
2070 BETA=999:PRINT " NIVEL "fNI| 
2080 FOR 1=1 TO NT 

IF BETA.=ALFA THEN I=NT: PRINT " BETA 

GOSUB 5000 

N1=NI+1 

IM=LCS<I) :PTS= 13: GOSUB 7000 

GOSUB 900 

30SUB 6000 

IF VA<BETA THEN BETA=VA: ML=LCS ( I ) 
2160 NEXT I 
2170 VA=BETA 
2180 RETURN 

3000 REM AVALIADOR ESTATICO 
3010 VA=TA(0>-TA< 13) 
3020 RETURN 

4000 REM GERADOR DE MOVIMENTOS 
4010 NT=0 

4020 FOR K=Q TO Q+5 

4030 IF TA(K)<>0 THEN NT=NT+1 : LCS (NT) =K 
4040 NEXT K 
4050 RETURN 
5000 REM PUSH 
5010 PILHA(PP>=I:PP=PP+1 

5020 P ILHA < PP ) =NI : PP=PP+ 1 : P ILHA (PP ) =ALFA : PP=PF+ 1 
5030 P I LHA ( PP ) =BETA: PP=PP+ 1 : P I LHA < PP) =ML : PP=PP+ 1 
5040 FOR K=0 TO 13 
5050 P I LHA < PP) =TA IK ) : PP=PP+ 1 



:GDTO 1050 



209U 
2100 
2110 
2120 
2130 
2140 
2150 



:GDTO 2160 



» 
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Jogador A 















5 6 

Jogador B 



Jogador A 



3OOO00 





Figura 1 - Tabuleiro de Mancala na posi$5o inicial 



Figura 2 - Tabuleiro de Mancala apds o jogador A mover a casa 5 



Jogador A J * i 




5 6 

Jogador B * "• * 



Figura 3 



Jogador A * '• 




% 5 

Jogador B ',\\ 



las. tabuleiro tern a forma mostrada 
na figura 1 . Inicialmente existem quatro 
pedras em cada casinha. Os jogadores se 
revezam pegando todas as pedras de 
uma das casinhas do seu 1 ado do tabulei- 
ro, distribuin do-as no sentido anti-hord- 
rio. A figura 2 mostra como fica o tabu- 
leiro se o jogador A escolher a casinha 5. 



Figura 4 

Digamos que haja uma seqiiencia de 
casas contendo uma ou duas pedras e 
que a ultima das que esta"o sendo distri- 
bui'das caia numa das casas dela. Neste 
caso, o jogador que esta fazendo o movi- 
mento captura todas as pedras da se- 
qiiencia ate chegar na casa onde a ulti- 
ma das pedras caiu. 



5060 
5070 
5080 
5090 
5100 
5110 
6000 
6010 
602O 
6030 
6040 
6050 
6060 
6070 
6080 
6O90 
6100 
6110 
7000 
"■ ■ I o 
7020 
7030 
7040 
7O50 
7060 
707O 
7080 
7090 
7 1 00 
7110 
7120 
7130 
7140' 
7150 
8000 
8010 
B020 
S030 
8040 
B03Q 
B060 
8070 
8080 
8090 



NEXT K 

FOR K=l TO NT 

PILHA(PP>=LC5£K) :PP=PP+1 
NEXT K 

PI LHA (PP) =NT: PP=PP+1 
RETURN 
REH POP 

PP=PP- 1 : NT=P I LHA ( PP ) 
FOR K=NT TO 1 STEP -1 

PP=PP-1 : LCS CK) =PILHA (PP) 
NEXT K 
FOR K«13 TO STEP -1 

PP=PP-1 : TA CK) =PILHA (PP) 
NEXT K 

PP=PP-l:ML=PILHA<PP):PP*PP-l:BETA=PILHA<PP> 

PP=PP- 1 : ALFA=P I LHA ( PP) : PP=pp- l ; NI =P ILHA (PP> 

PP=PP-i: I=PILHA(PP) 

RETURN 

REM I10VIMENTAD0R 

CUIA-TA(IM) :TAUM)=0 

CT=1M 

IF CUIA=0 THEN 7100 
CT=CT+1 

IF CT>12 THEN CT=CT-12 

TA(CT)=TA(CT>+1 

CUIA=CUIA-1 

GOTO 7030 

REM 

IF TA(CT)>3 OR TA(CT)<2 THEN RETURN 

TAtPT5)=TA(CT)+TA<PTS) 

TAtCT)=0 

CT=CT-1 

IF CT<1 THEN CT^12 

GOTO 7100 

REM IMPRIME TABULEIRO 

PR I NT 

PRINT "TABULEIRO: " 

PRINT "VOCE: ";TAU3);" "; 

FOR K=12 TO 7 STEP -l: PRINT TO iK);: NEXT K 

PR INT 

PRINT " EU: "; TACO>;" "; 

FOR K=l TO 6:PRINT TA<K);:NEXT K 

PRINT 



RETURN 



Um exemplo tornari as coisas mais 
claras. Digamos que, na figura 3, o joga- 
dor B movimente a casa 5. A ultima pe- 
dra caira na casa 4 do jogador A. Isto 
significa que B capturara' todas as pedras 
das casas 4, 3 e 2. resultado do lance 
6 mostrado na figura 4. 

Vence o jogo quern capturar mais pe- 
dras apos ambos os jogadores terem fei- 
to o numero de lances escolhido em co- 
mum acordo antes de comecar o jogo. 

OBSERVACAO IMPORTANTE 

A finalidade deste artigo foi desper- 
tar no maior numero de pessoas possi'- 
vel o interesse pela Inteligencia Artifi- 
cial, Assim sendo, usamos a linguagem 
BASIC porque com ela podemos atingir 
um numero grande de programadores. 
Se, pore*m, voce se interessou por Inte- 
ligencia Artificial, deve estar preparado 
para abandonar o BASIC e come^ar a 
trabalhar com LISP ou PROLOG. 

Programas simples como os apresen- 
tados nesta e na primeira parte ainda po- 
dem ser escritos em BASIC. Quando, 
pore"m, voce comecar a trabalhar com 
problemas complexes, predsara* de um 
poder de computaeffo que so LISP e 
PROLOG poderao lhe dar. ■ 
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CURSOS DE APERFEIPOAMENTO 



MAIS SUCESSO PARA VOCE! 



Comece uma nova fase na sua vida profissionat. 

Os CURSOS CEDM levam ate voce" o mais moderno ensino 

tecnico programado e desenvolvido no Pafs. 



CURSO DE ELEmONICA DtGTTAL 

e 



«**• ii.\«:*a; 



CURSO DE 

eletrOnica e Audio 




CURSO DE 
PROGRAMACAO EM BASK 



Este CURSO, especial men te programado, oferece os 
fundamentos de Linguagem de Programacao que domina o universo 
dos microcomputadores. Dinamico e abrangente, ensma desde o BASIC 
basico ate o BASIC mats avancado. inclufndo nocoes basicas sobre 
Mantpulacao de Arquivos, T^cmcas de Programacao, Sistemas de 
Processamento de Dados. Teleprocessamento, Multiprogramacao e 
T^cnicas em Linguagem de Maquina, que proporcionam um grande 
conhecimento em toda a area de Processamento de Dados 



2S#* 




CEDM 1 - KIT de Ferramentas. CEDM 2 - KIT Fonte de Ahmentaca"o 
♦ 15 15/1A CEDM3 • KIT Placa Experimental 
CEDM 4 - KIT de Componemes. CEDM 5 • KIT Pre-ampliftcador 
Estereo. CEDM-6 - KIT Amplificador Estereo 40w. 



Voce mesmo pode desenvoiver um ritmo proprio de estudo. A lin- 
guagem simpltficada dos CURSOS CEDM permite aprendizado facil. E 
para esclarecer qualquer duvida, o CEDM col oca d sua disposicab uma 
equipe de professores sempre muito bem acessorada. Alem disso, voce 
recebe KITS pre parados para os seus exerci'cios praticos. 

Agil, moderno e perfeitamente adequado a nosta realidade, oi CUR- 
SOS CEDM por correspondent a garantem condicfles ideais para o seu 
aperfeicoamento profissional. 

IGRATISi 

Voc€ tambem pode ganhar um MICROCOMPUTADOR. 

Telefone (0432) 23-9674 ou coloque hoje 

mesmo no Correio o cupom CEDM. 

Em poucos dias vocfl recebe nossos catalogos de apresenta?ao. 



KIT CEDM Z80 

BASIC Cientff ico 

KIT CEDM 280 

BASIC Simples. 

Gabanto de Fluxograma 

E-4. KIT CEDM SOFTWARE 

Fitas Cassete com Programas. 
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\ priM Avenid.i Sao Paulo, 718 ■ Fone (0432) 23-9674. 
ULLPI I CAIXA POSTAL 1642 - CEP 86100 - Londrina - PR 

CURSO DE APERFEICOAMENTO POR CORRESPONDENCE 

Sollcito o mais raptdo possfvel informecSes sem compromisio tobre o 

CURSO de 

Nome 

Rua. 

Cidade 

Bairro CEP . 

MS 



Pacotao de hardware 
para os Sinclair 



Por esse pacote voce esperava! 

As cartas e os pedidos foram muitos e ai'estd o Pacotao de Hardware 

para a linha Sinclair. Entre vdrias colaboracoes recebidas, empacotamos 

algumas que acreditamos ser as mats interessantes implementacoes que voce 

poderd introduzir no seu micro Sinclair. Tivemos a preocupacao de dar 

subsi'dios para que proprietdrios de modelos diferentes pudessem desfrutar 

dessas maravilhasas "dicas de Hardware" que os nossos colaboradores 

estdo dividindo com todos os leitores da MICRO SISTEMAS. 

Portanto, maosd obra porque neste pacotao voce vera, por exemplo, 

a diferenca em digitar um programa depois de montar o teclado mecdnico. 

O repetidor de tecla s ajudard voce a economizar tempo ao digitar programas 

longos. Duas maneiras de introduzir um video in verso, qual delas voce 

escolhe 7 E . . . que tal adaptor um joystick ao seu A/£\ 7 



Antes de aprcscntar as colaboracoes, 
vamos (alar um pouco sob re o tecla- 
do dos micros Sinclair. Aie'm desse 
esc la ream en to ser important, mujtas das co- 
laboracoes t rat am desse assunto, daf darmos 
algumas explicacocs sobrc o seu formato e 
funcionamento. 

O computador man tern o teclado organ iz.a- 
du numa malnz dc 8\5 posieoes. sendu que 
eada posieao corresponde a uma tecla, Podc- 
mos melhor identificar isso atrave's da figura 1 , 



onde LO a I 7 correspondem as linhas da ma- 
in?, i- CO e C4 correspondem as coluna . 

computador reconhecc eada tecla pres- 
sionada atrave's de uma rotina do Sistema 
Operational, Essa rotina faz a Icitura linha/co- 
tuna ate' identificar quais os pontos que estao 
em contato. Por exemplo, se pressionarmos a 
tecla R havera contato entre a linha LI e a 
coluna C3. 

As figuras 2, 3 e 4 mostram os layouts dos 
principals micros da linha Sinclair para que 
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Figura I - Matrix do teclado 
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voce possa identificar essas Imhas e colunas no 
seu equipamento, Estas figuras o acompanha- 
rao em q^uase todas as colaboracoes c atrave's 
deias sera possi'vel adaplar todas as implemen- 
tacoes para o seu equipamento. 

Entao. vamos desembrulhar esse pacote? 




de video 



Ganhe em dobro com este eircuito que 
implementa um inversor de vi'deo e, 
por tabela, melhora a qualidade da 
imagem. Com ele, e' possi'vel obter otimo grau 
de contraste, aumentar os recursos da progra- 
maeuo e dinimuir a fadiga visual provueada 
pelo fundo bianco da imagem. 

Para os que nao estao familiarizados com o 
sinai de video de televisores, recomendamos a 
ieitura da primeira parte do artigo "TV em 
monitor: como adaptar", publicado em MI- 
CRO SISTEMAS n? 21. 

Como todos sabem, o sinal de vi'deo do 
TK c gerado pelo software. Este sinal contem 
todas as informacoes da imagem e do sincro- 
nismo, que, enviado ao modulador (figura 5), 
permite a Irga^ao direta a entrada da antena 
do televisor. Para inverter o sinal de vi'deo, de- 
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C4- 

C2- 

co- 
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L0- 
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L5- 
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reset- 
reset- 



ROM 1 
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Figura 2 - Layout do CP-200 
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Figura 3 - Lay-out do TKS5 
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Figura 4 - Layout 
do TK82-C 
(Para tornar possi'vel 
a adaptacdo em 
seu equipamento 
de todas as 
implementacoes de 
hardware que 
apresentamos. as 
figuras de raimero 2, 
3 e 4 serao citadas 
em quase todos os 
artigos que 
compoem essa 
materia. At raves 
d esses layouts 
ficard mais fdcil 
identificar as linhas 
e colunas em seu 
equipamento/. 
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CP-500, CP-300, Sysdata 
preco unico:Cr$ 11.000,00 



• Jedi 

• Galatica 

• Pi lot o 



• Exorcet 

• Ataque 

• Futebol 



Santa Paravia 



^UAtWAMENTO^ g 

Tks, CP-200, Ringo, etc. 
preco untco: Cr$ 6.000^*4- 

•Valig *V^0^ 

emais IBsensacionais jogof 
todos de 16K 16 k byt^r 

•3«m1 
preco tinico: Cr$ 3.000,00 '■- 
este especialmente poraquem 
tem 2 kbytes. 



MICRO BOARD LTD A. 

Caixa Postal 18968 

Sao Paulo ■ SP 

04699 

Fone: (011) 532-0923 
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PACOTAO DE HARDWARE PARA OS SINCLAIR 




INUERSQR C>E UIC»EO PARR TK6 



S67©«ABCDEFGHIJKLMM0P0RSTUUUXVZP 



RB 7CODE UAL LEN SIN 

1 RCS «TN LN EXP INT 

SOR SON ASS PEEK, USR STR$ CHR| N 

OT *« OR AND <*>«<> THEN TO STEP 
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Figura 7 




vemos faze-lo antes do modulador e nab basta 
simplesmente inverter o sinal de vi'deo: deve- 
mos inverter somente as informacSes da ima- 
gem e manter inalteradas as inform acroes de 
sincronismo (figura 6). 

inversor de vi'deo utiliza o integrado 
CMOS 4001, que, por suas caracten'sticas de 
alta impedancia de entrada e baixo consumo, 
pode ser ligado no circuito e utilizar a alimen- 
tacao do proprio micro sem provocar qual- 
quer tipo de sobrecarga. Basicamente o circui- 
to separa os sinais de sincronismo do sinal da 
imagem, e este ultimo, invertido e somado no- 
vamente aos sinais de sincronismo, gera o sinal 
de vi'deo invertido. Para facilitar a compreen- 
sab do funcionamento do inversor, o circuito 
ele'trico, na figura 7, apresenta as formas de 
onda em diversos pontos. 

inversor deve ser montado sobre uma 
placa de circuito impresso; to das as ligacoes 
devem ser minuciosamente inspecionadas e os 
cuidados com o integrado CMOS devem ser se- 
guidos, para que nao ocorram danos ao micro. 

A liga^ao do inversor no micro e' muito 
simples; o sinal de vi'deo original e' retirado do 
circuito impresso antes que sofra a atenuac,ab 
do resistor de IMn, o qual esta localizado 
proximo ao conector MIC, O sinal de vi'deo 
invertido deve ser injetado no modulador (fi- 
gura 8). Para que o nosso micro possua dois 
tipos de vi'deo, normal e invertido, de vemos 
desfazer a liga^ao entre o modulador e o cir- 
cuito impresso do micro, ligando uma chave 
seletora, conforme esta na figura 7. A alimen- 
tac,ab pode ser retirada de pontos proximosa 
caixa do modulador. 

Depois que tudo estiver montado e funcio- 
nando, sera preciso caJibrar o trimpot, respon- 
sa"vel pela qualidade da imagem. Esta regula- 
gem dependent tambe'm dos controles de bri- 
Dto e contraste do televisor. Para facilitar esta 
regulagem , sugiro o seguinte programa: 

10 FOR N=1 TO 255 
20 PRINT CHR$ N; 
3 NEXT N 
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Figura 9 

A posiciao da chave seletora nab afeta a 
grava$ao nem a reproducao de programas, mas 
e provavel que no modo de vi'deo invertido as 
faixas que apareciam no video, nestas duas ro- 
tinas, desaparec,am , dependendo da regulagem 
de brilho e contraste do televisor. 



Teclado 



mecanico 



Para quern esta cansado de usar marte- 
lo e talhadeira para digitar seus pro- 
gramas nos micros de logjca Sinclair 
(aqueles com teclado "sensi'vel ao toque"), 
principalmente o NE-Z8000, eis a solucao ou 
o fun dos seus caios! 

O que vamos apresentar € um teclado me- 
canico adaptado para o NE-Z8000ouTK82-C. 
Para en tender o seu funcionamento , nao deixe 
de recoirer a figura 4 , que conte'm o layout 
desses equip am en tos. 

Vamos en tab ao teclado? Na figura 9 te- 
mos a placa de circuito impresso do teclado 
mecanico, vista do lado cobreado. Este dese- 
nho esta em escala, pore'm nada impede que 
voce altere suas dim en so es. Apenas lembre-se 
de observar a distancia entre os pinos das cha- 
ves (intenuptores de pressao). 

Nesta mesma figura (9) pode-se notar um 
resistor. Este components que tern o valor de 
820 ohms por l/4w ou l/2w,sosera necessa- 
rio para aqueles que quiserem incluir o RESET 
no seu teclado. Se voce achar que nao ha ne- 
cessidade de um RESET, basta ignorar os pon- 
tos A e B, bem como o resistor e as teclas( RE- 
SET 1 e RESET 2), na hora de fazer a placa. 

Caso voce queira incluir as teclas de 
RESET, saiba que o ponto A corresponde ao 
pino 26 da CPU. (Para maiores explicates, 
veja o artigo "RESET: dcsiigando a UCP do 
micro", publicadb em MICRO SISTEMAS n? 
26.) O ponto Bto pino central do integrado 
7805. 

As chaves, que sSo em niimero de 40 (ou 
42, para incluir o RESET), devem ser adquiri- 
das rates da confec^ao da placa de circuito 
impresso. Neste ponto, voce dovera" (caso nao 
encontre um interruptor perfeito, isto e, um 
que nl"o possa servir como tecla) criar uma ca- 
pa.de modo que os intenuptores fiquem seme- 
mantes as teclas de uma maquina de escrever. 



Veja que, ao instalar o novo teclado, o ori- 
ginal continuara funcionando normalmcnlc 
Voce podera colocar o novo em uma caixa no- 
va ou sobrepo-lo ao original. 

Caso voce tenha condkjoes de adquirir um 
console ja pronto, ou seja, teclados IBM, Co- 
bra etc., e quiser adapta4o ao seu micro, e 
muito simples. Em primeiio lugar, voce devera 
desfazer todas as possi'veis ligacoes que exis- 
tam no interior do console. Depois, e so Hgar 
as respectivas teclas nos pontos certos na pla- 
ca (que podera ter seu tamanho reduzido ou 
adaptado ao novo teclado). 





Figura 10 



Para aqueles que gostam de jogar (o 
que nao e' nada facil com o teclado 
do NE-Z8000), o joystick e muito 
util. Portanto, preste atencao e veja como 
adapta-lo no seu micro. 

Na figura 10, temos o plugue de seis pinos 
visto de tra's e tambe'm os pontos de ligacao na 
placa do micro. Agora e so voce recorrer a fi- 
gura 4, localizar os pontos e fazer as ligacoes. 
Esta adapta^ao requer um pouco de pratica, 
para nao danificar os diodos e resistores. As li- 
gacoes devem ser feitas nos proprios terminais 
dos componentes. 

Por Fim, € importante ressaltar que a liga- 
cao deste plugue i compati'vel com qualquer 
joystick comercial (daqeules para o TK82C). 



Video 



inverso 



no micro 



A qui esta uma otima oportunidade pa- 
ra voce adaptar o vi'deo inverso no 
seu micro. Esta implementacab foi 
elaborada originalmente no NE-Z8000, mas 
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voce vera como utiliza-la em outros micros da 
linha Sinclair. 

Para comecar, abra o seu equipamen to, re- 
tire a placa do circuito impresso e localize o 
integiado SN74LS165N.A partir dai', com ba- 
se na figura 1 1 (face inferior da placa do micro), 
qualquer pessoa que saiba realizar (com pra'- 
tica) uma boa soldagem pode ter esta opcao. 

Primeiro, corte o pequeno arame (fio de- 
sencapado) que ha entre os pontos A e B. No- 
te o rompimento de urn filete entre os pontos 
A e C. Agora, ligue urn fio em cada urn dos 
pontos A e B e tambe'm no ponto C. Depois li- 
gue as extiemidades destes fios na chave CHI 
(de tres polos e duas posicoes). Se tudo for 
feito corretamente, tcremos entao em uma 
posicao da chave, vi'deo normal, e na outra, 
vi'deo inverse 

Para os que descjam utilizar essa imple- 
mentacao em outros micros da linha, basta lo- 
calizar o integiado SN74LS165N e saber que 
a ligacao dos pontos A, B e C se resumem a: 
ponto C - pino 7 do integrado; ponto B - pi- 
no 9 do integrado; e ponto A - ligacao do 
ponto B (fundo preto) ou ponto C (fundo 
branco) com o resto do circuito. 

Aos usuarios do TK82-C, aqui vai um lem- 
brete: em caso de diivida quanto a inversao, 
recorra ao artigo "'Inversao de vi'deo e cassete 
automatico". pubticado em MICRO SISTE- 
MASn?25. 



Repetidor 



de teclas 



Com esse repetidor de teclas voce eco- 
nomizaia tempo na digitacao de pro- 
gramas iongos, £ um circuito simples 
e para sua elaboracao foi necessario, apenas. 
pesquisar a placa do teclado do CP-200 e co- 
nhecer seu funcionamento. 

Normalmente, quando uma tecla e" pressio- 
nada, o circuito reconhece apenas um pulso, 
por mais que ela seja pressionada, Sendo as- 
sim, para se repetir o mesmo carater n vezes, n 
vezes a tecla deve ser pressionada para a pro- 
ducao dos n pulsos. 

Com a utilizacao do circuito repetidor que 
estamos aprese ntando , basta deixar a tecla 
pressionada que serao produzidos os pulsos 
necessarios e, com isso.os caracteres. Isto tor- 
na a digitacao menos cansativa, principalmen- 
te quando se mexe com o cursor, ou quando 
se reserva espaco nas linhas REM para progra- 
mas em Assembler, ou ainda quando se quer 
apagar um determinado numero de caracte- 
res. 

Vejamos, entao, como isso funciona. 

No conector da placa principal do CP-200, 
assim como do teclado, estao presentes os se- 
guintes sinais (do fundo para a frente do mi- 
cro) 01 1 1 1 100000 010. Portanto, 
contaremos da mesma forma. Os 14? e 1 5? si- 
nais sao de reset e, dessa forma, nao sera ne- 
cessario mexer neles. 

£ necessario que se acompanhe no lay-out 
do CP-200 (figura 2) a explicacao de todo o 
processo. Vemos, entao, que os sinais que nos 
interessam sao C4, C3, C2, CO e CI. Os sinais 
restantes sao provenientes da placa do tecla- 
do. Bern, o que se fez foi picar periodicamen- 
te esses sinais (C4, C3. C2, CO c CI ), utilizando 
um circuito temporizador e um circuito de 
chaves analogicas. O temporizador e o conhe- 
cido LM 555 e para as chaves analogicas foi 
utilizado o CD 4066, mas tambe'm ha o equi- 
valente CD 4016. Veja na figura 1 2 o esquema 
do circuito repetidor. 
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Figura 12 

Ficamos com as opcoes de usar o micro da 
forma normal ou com a repeticao de teclas, o 
que e' selecionado com uma chave mecanica 
manual. Na forma nomal, a chave mecanica 
impoc um ni'vel Uo con trole da chave analo- 
gica e, com isso, e' fechado o circuito interno 
do 4066 formando-se uma ponte para a passa- 
gem da corrente e assim se mante'm. J a na for- 
ma repetitiva, o circuito temporizador e ativa- 
do e no pino 3 do 555 aparecem os m'veis e 
1 . Este sinal e aplicado ao controle do 4066 e 
dessa forma e' ativada e desativada a ponte do 
4066, permit indo e nao permitindo a passa- 
gem da corrente. 

Repete-se o que foi dito para as outras 
quatro chaves. Lembre-se de que cada 4066 
possui quatro chaves e, portanto, sao necessa- 
rios dois circuitos integrados ja que sao cinco 
os sinais a serem controlados. 

Para a instalagao do circuito repetidor no 
micro, deve-se respeitar a mesma posicao (ori- 
ginal) das ligacoes entre os conectores; caso 
contrario, uma tecla podera produzir o carater 
de outra, isto e, C4, C3, C2, CO e CI corres- 
ponderao, respectivamente, a C4\ C3\ C2', 
CO' e CI*. £ importante frisar que os sinais 
dos pinos C4, C3, C2, CO e CI do conector 
devem primeiro passar pelo circuito de repeti- 
cao para entao seguir a placa do teclado: C4', 
C3\ C2\ CO* e CI*. As outras ligacoes do co- 
nector devem ser mantidas. 

Com relacao ao conector, foi necessaria a 
sua troca e quanto a alimentacao de 5 V, do cir- 
cuito de repeticao, foi tirada do proprio micro. 

A colocacao do circuito pode ser feita no 
chassi superior do micro, intemamente. A cha- 



ve mecanica e o led do monitor devem ser co- 
locados extemamente. Sempre que o micro for 
ligado, o led acendera c se o circuito de repeti- 
cao foracionado, o led piscara. pen'odo de 
repeticao pode ser controlado porum trimpot, 

Este trabalho foi desenvolvido no CP-200, 
mas se adapta em outros equipamentos da li- 
nha Sinclair. Para isso, basta recorrer as figu- 
ras 3 e 4,localizai os sinaLs (C4.C3, C2,C0 e 
CI) e usa'-los. Os conectores referidos sao os 
que ligam a placa principal a placa do teclado. 



Marceio Shiroma Lancarotte — Inversor da vi- 
deo — 4 tdenico em mecSnica, formado pela 
FATEC em 1982. Atualmente esta est u dan do 
Ana"lise de Sistemas a m'vel de pds graduacao e 
se dedica a pro/etos e construgao de dispositi- 
vos eletrdnkos. 

Andni Koch Zielasko — Teclado macanico, 
Adaptando joystick. Video inverso no micro 
— frequentou por dots anas o curso Tecndlo- 
go de Processamento de Dados na Unisinos — 
RS. Atualmente, estuda as linguagens BASIC, 
Assembler, FORTRAN e COBOL e pesquisa o 
uso dos micros de logic a Sinclair nas areas de 
Astronomia e Telecomunicacoes. 

Humberto Kazuo Nakashima — Repetidor de 
teclas — tern 19 anos e 4 autodidata emF/e- 
trdnica, principal mente a digital. 
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SHIMIZU, T., ProgramacSo 
COBOL — Curso Basico, Editora 
Atlas. 

| Este livro fot escrito com o 
oujetivo de difundir a linguagem 
COBOL em termos compreensf- 
veis mesmo para os que nunca ti- 
veram contato com essa lingua- 
gem de programacao comercial. 
Destina-se tambern a programa- 
dores ja experientes que tenham 
necessidade de realizar consultas 
esclarecedoras sobre as formas 
mais gerais de cada comando ou 
instrucao COBOL, Ao longo do 
texto ha farto material ilustrati- 
vo, exemplos, fluxogramas e fi- 
guras, com a ftnalidade de facili- 
tar a assimilacao da materia. Tam- 
bern apresenta exerci'cios, projeta- 
dos para que o leitor possa en- 
contrar as solucoes e formuiar os 
seus proprios programas. 



ANDREW, J.,Programando seu 
Computador, EB Informatica. 

| Este livro tern por objetivo au- 
xiliar o usua'rio de microcompu- 
tadores, ou mesmo os que nab te- 
nham urn equipamento mas quei- 
ram saber quais aplicacoes e recur- 
sos ele possui. 

Nesta obra, todos os progra- 
mas foram subdivididos em cinco 
etapas, para melhor compreensao 
por parte do usua'rio: 

• Configuracao minima — de- 
monstra ao leitor quais as exigen- 
cias ou capacidade minima que o 
equipamento deve ter para que o 
programa seja executado; 

• Equipamentos — mostra quais 
equipamentos sao compati'veis 
com o programa; 

• Descricao — mostra ao usua'rio 
as utilidades do programa e suas 
melhores aplicacoes; 

• Execucao — a maneira correta 
de executar Irodar) o programa; 

• Rotinas — subdivide o progra- 
ma em rotinas, onde poderao ser 
melhor visualizados os grupos de 
comandos necessaVios e a Idgica 
do programa. 
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LEDERMAN, C, IntroducSo a 
Linguagem BASIC para 
Microcomputadores, Cartgraf 
— Editora. 

^ Escrito de uma forma clara e 
pra"tica, 6 um livro autodid^tico 
no conteudo e na forma. Sua lei- 
tura e compreensa"o prescindem 
mesmo da posse de um microcom- 
putador. Cortt^m exercfcios simu- 
lados ao fim de cada capitulo, or- 
denados de forma I6gica e preeisa, 
bem de acordo com o que se espe- 
ra de dados processados num 
computador - a rapidez na assi- 
milacao das mateVias e uma inevi- 
t^vel consequencia, tanto para os 
que ja* se iniciaram na linguagem 
BASIC em escolas ou institutos 
como para os que jamais viram 
um terminal de vi'deo. 

Total mente ilustrado com sar'- 
das de video de um micro, pode- 
se direr que essa introducao ao 
BASIC nab e" apenas um livro es- 
crito, mas digitado, tal a preocu- 
pacao do autor em tomar simples, 
faci! e autodid^tico o aprendizado 
da linguagem mais popular do uni- 
verso dos microcomputadores. 
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TUCCI, W.;MOREIRA,J.; 
FALCONER, D., A Primeira 
Mordida, Editors Nobel. 

| A Primeira Mordida tern o 
objetivo de fornecer as informa- 
coes necessarias ao aprendizado 
da linguagem BASIC, procurando 
introduzir o computador de for- 
ma didatica aqueles que se ini- 
ciam no mundo da Informatica, 
com pequeno ou nenhum conhe- 
cimento anterior no campo da 
computacao. O livro traz a im- 
plementacao da ideia de diagra- 
ma de blocos e seus respectivos 
comandos na listagem das codifi- 
cacoes BASIC, e todos os progra- 
mas apresentados, como exetn- 
plo ou sugestao, vem acompanha- 
dos de um grupo de perguntas re- 
fe rentes a cada situacao durante 
a rodagem, permitindo uma ra- 



pida interaca"o livro-usuario-ma- 
quina. 

Entre os assuntos abordados, o 
livro apresenta: "Variaveis"; "Dia- 
grama de Blocos"; "Desvios e De- 
cisoes"; "Matrizes"; "Sub- roti- 
nas"; "Manipufacao de Caracte- 
res" e "Graficos". Como apendi- 
ce. Breve referSncias, DOS 3.3 e 
Mensagens de erro. 



MIRSHAWKA, V., BASIC sem 
Segredos, Editora Nobel. 




| BASIC sem Segredos e o livro 
que dara ao leitor as condicoes de 
conhecer a linguagem BASIC e 
suas aplicacoes, apresentando-a 
em tres estagios: elementar, inter- 
medial o e avancado, tendo como 
objetivo final ensinar a programar. 
Atraves de exemplos e ilustracoes, 
de uma forma clara e objetiva, o 
autor traz ao leitor os conceitos 
do BASIC e um completo conhe- 
cimento da sintaxe desta lingua- 
gem de programacao. 

Dividido em seis capftulos, 
BASIC sem Segredos aborda: "A- 
plicacao e um pouco de historia 
sobre os computadores"; "A lin- 
guagem BASIC elementar"; "O 
BASIC in termed iario" -comdes- 
taque para o par READ- DATA, 
para as variaveis alfanumericas, va- 
riaveis indexadas e funcoes mate- 
maticas especiais; "O BASIC avan- 
cado"; "O sofisticado MAXXI da 
finha Apple" e um capi'tulo abor- 
dando "0 uso do microcomputa- 
dor na Educacao", destacando os 
seus benefi'cios e alguns possfveis 
maleff'cios. Em suma, o livro e 
importante para todos aqueles 
que querem, ou precisam, utilizar 
com eficacia micros de qualquer 
uma das linhas fabricadas atuaf- 
mente no Brasit. 



GOTTFRIED, B.S., Programacao 
com BASIC, Editora McGraw-Hill. 

| Esta obra tern por final idade 
fornecer um curso de programacao 
de computadores empregando a 
estrutura padronizada da lingua- 



Schaurn McGra. 
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gem BASIC. Assim sendo, todas 
as caracterfsticas principals da lin- 
guagem serao analisadas. Paralela- 
mente, a obra apresenta o desen- 
volvimento de programas l6gicos, 
eficientes e ordenados. Assim, o 
leitor poderS absorver os princi'- 
pios da boa pritica de programa- 
cao, bem como as regras espect'fi- 
casdo BASIC. 

A linguagem adotada e delibe- 
radamente elementar , o que per- 
mitira que o texto seja facilmente 
compreendido por uma imensa 
gama de leitores, desde estudantes 
a profissionais com experiencia 
pr^tica. O livro esta organizado 
em duas partes. A parte I, "BA- 
SIC Basico", contem as caracten's- 
ticas principals da linguagem mais 
empregada. Este material, por si 
so, permite o ensino de um curso 
rdpido de programacao. A Parte 
II, "BASIC Avancado", aborda 
caracterfsticas mais profundas, 
tais como sub-rotinas r declaracoes 
para a manipulacao de matrizes e 
de arquivos. A obra e encerrada 
com um capftulodenominado 
"BASIC Ampiiado", em que se da 
enfase particular as implantacoes 
em microcomputadores. 

SETZER, V.;MELO, I, A 

Const rucao de um Compilador, 

Editora Campus. 

9 Com finalidade didatica e in- 
formative, esta obra tanto podera 
ser empregada como livro- texto 
para a disciplina de teoria e cons- 
trucao de compiladores quanto 
como referencia para profissionais 
de processamento de dados. Divi- 
dida em duas partes, trata intcial- 
mente de analise lexica e sintatica, 
apresentando o metodo simples e 
eficiente de analise sintatica de- ' 
senvolvido por V. W. Setzer. 
Aborda, em seguida, analise de 
contexto, geracao de codigo e de- 
talhes de implementacao, sugerin- 
do e orientando, como trabalho 
pratico, a execucao de um projeto 
de compilador para a linguagem 
Pascal. 
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A CompuShop apresenta com 
exclusividade o Apple que fala portugues: 

MicroEngenho 2. 



O MicroEngenho 2 tem teclado destac^\/el r 
com todas as letras maJusculas e 
mintjisculas, aoentos e sinais graficos da 
lingua portuguesa que voc& encontra em 
qualquer mSquina de escrever, 
E tud o isso apa rece no seu monitor d e video. 
Mas as caracterfsticas especiais do 
MicroEngenho 2 n3o param por af. 
Ele e o unico microcornputador no Brasil 
totalmente compativel com o Apple N Plus 
e o Apple lie, e voce escolhe por meio de 
unV'switch" com qua! opc^o quer 
trabalhar. Alem do design semelhante ao 
dos microcomputadores de ultima geracSo 
NBM- PC), o MicroEngenho 2 tem tec la do 
numerico reduzido para entrada da dados 
e possibifidade para se ,J sair r ' de um 
programa e recomecar o sistema, sem ter 
que desligar o equipamento, 
Venha atd a CompuShop conhecer de 
pertoo MicroEngenho 2 r 
N6s e ele falamos a sua lingua. 
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A CompuShop entrsga * instala o MicroEngenho 2 em seu escrit6rio e voce ainda ganha um treinamento de4 horas no locaL 
So voce reside am outre cidade, faca o seu pedido pelo telefone (Oil) 800.S123. A CompuShop page e ligacio 
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• SEN AC est3 oferecendo um curso de 
TScnicas Avarxpadas em BASIC, total mente 
prltico, com aulas as 3?s e 5?s, com duraga*o 
de duas horas cada. Os alunos contarao com 
uma sala equipada com 20 micros, um por 
aluno, e duas impressoras de 200 CPS. As ma- 
tn'culas encontram-se abertas na Rua Santa 
Luzia, 735, 139 andar, tel.: (021) 220-8891, 
Rio de Janeiro, RJ. 

• O Institute PsicodinSmico de Idiomas 
oferece cursos intensivos de BASIC para prin- 
cipiantes e empresas interessadas em treinar 
OS seus funcionaYios, A duracao do curso e de 
duas semanas, com carga horaria de 11 horas 
por semana. O preco do curso 6 de Cr$ 50 
mil, sendo que Cr$ 10 mil de inscricao e 
Cr$ 40 mil no ini'cio do curso. Maiores infor- 
macoes na Rua Martiniano de Carvalho, 200, 
tel.: (011) 284-3912, Sao Paulo, SP. 

• O Centro Latino-Americano de Desen- 
volvimento da Informatica oferece, para o 
mis de abril, os cursos de Processamento Dis- 
tribui'do e Gerencia de Projetos, ambos com 
carga horaria de 21 horas, ao preco de 29,4 
ORTN. Inscricoes na Rua Jos4 Goncalves de 
Medeiros, 96, Madalena, tel.: (081) 227-2307, 
Recife, PE. 

• A COMPUTRON Engenharia & Infor- 
matica Ltda. oferece regularmente os cursos 
de BASIC, BASIC avancado e COBOL, em 
turmas reduzidas, com material didatico gra- 
tuito, aulas praticas individuals, certificado de 
conclusao e diversos horarios (dois diasa noi- 
te ou sabados a tarde). O endereco e Av. Bra- 
si I, 3.909, sala 5, tel.: (0332) 21-6042, Gover- 
nador Valadares, MG. 

• A Microchip Computacao Com^rcio 
Ltda. vem promovendo cursos de programa- 
cafo em BASIC para principiantes, estudantes 
do 19 e 29 graus, univ/ersitarios e turmas espe- 
ciais para profissionais lioerais, segundo suas 
especial izacoes. Alem de aulas praticas e te6- 
ricas em microcomputadores, os participantes 
tern a sua disposicao horario livre para uso dos 
equipamentos. Informacoes na Rua Miguel 
Lemos, 41, sala 606, Copacabana, tel.: (021) 
227-8803, Rio de Janeiro. RJ. 



• A E RKLA oferece no mes de marco cur- 
so de BASIC III. Este curso e destinado a t6c- 
nicos e engenheiros, a duracao 6 de 20 horas e 
o preco £ de 15 ORTN. Maiores informacoes 
na Av. Pacaembu, 1261, tel.: (011) 67-8339, 
Sao Paulo, SP. 

• A Datamicro Informatica Ltda, esta rece- 
bendo inscricoes para os cursos Introduced 
aos Microcomputadores, Linguagem BASIC, 
Microcomputador para Criancas e Microcom- 
putador Aplicado na Engenharia, todos no 
mes de marco. Informacoes na Rua Visconde 
de Piraja\ 547, loja 211, Ipanema, tel.: (021) 
287-5211, Rio de Janeiro, RJ. 

• A 4C — Criancas Criando Com o Compu- 
tador, al^m dos cursos para criancas, esta ofe- 
recendo cursos para adultos. Os cursos sao de 
BASIC, com turmas aos sabados das 8:00 as 
13:00h, ini'cio dia 17 de marco, e as tercas e 
quintas-feiras, das 19:30 as 22:00h., ini'cio dia 
20 de marco. Informacoes na Av. Rouxinol, 
201, tel.: (011) 614595, Sao Paulo, SP. 

• A CompBel continua promovendo cursos 
de Introducao a Microcomputadores para ado- 
lescentes e estudantes de ni'vel colegial, O cur- 
so d realizado as 2?s e 4?s ou as 3?s e 5$s, em 
dois horarios: 14:00h ou 16:30h. A carga ho- 
raria £ de 20 horas, e as aulas praticas sa"o em 
um TK85. A CompBel tamb^m oferece cursos 
de BASIC telle Visicalc Plus. Maiores infor- 
macoes na Rua Gregorio Paes de Almeida, 62, 
Vila Madalena, tel.: (011) 65-9857, Sao Paulo 
SP. 

• A Mikro Informatica continua oferecen- 
do com sucesso os seguintes cursos, com va- 
rias opcoes de horario; Informatica para jo- 
vens, Operacao e programacao de microcom- 
putadores, Linguagem BASIC e BASIC para 
criancas. Informacoes e inscricoes na Av. 
Afonso Pena, 952, sala 627, Centro, tel.: 
(031) 222-3035, Belo Horizonte, MG. 

• A loja Minas Digital oferece regularmen- 
te cursos de programacao em microcomputa- 
dores para pessoas jun'dicas e clientes. O en- 
dereco 6" Rua Araguari, 692, tel.: (031) 337- 
7946, Belo Horizonte, MG. 

• A ADP Systems estara oferecendo os se- 
guintes cursos nos meses de marco e abril: 
Operacao de Sistemas, Programacao de Siste- 
mas, Analise de Sistemas, BASIC e Assembler. 
Os cursos sao realizados em turmas pela ma- 
nha, tarde e noite. Maiores informacoes na 
Av. Paulista, 1439, 39 andar, cj. 31 , tel.: 
(01 1 ) 285-3283, Sao Paulo, SP. 



• O SENAC PRODEMP (Programs de De- 
senvolvimento Empresarial) estara promoven- 
do o curso "Projetos de O&M integrados a mi- 
croinformatica." O curso ira" de 10 a 17 de 
abril, com carga horaria de 18 horas, das 
19:30 as 22:30h. Informacoes na Rua Dr. Vi- 
la Nova, 228, 29 andar, tel.: (Oil) 256-5522, 
Sao Paulo, SP. 

• Metodologia e T6cnicas para Aumento 
do Desempenho do Computador, Auditoria 
do CPD e de Sistemas Workshop, Engenharia 
de Programas, Projeto de Redes de Telepro- 
cessamento, Administracao de Banco de Da- 
dos e Treinamento Gerencial em Processamen- 
to de Dados sao os cursos oferecidos no me*s 
de abril pelo SCI — Sistemas, Computaea"o e 
Informatica. Informacoes na Rua Jardim Bo- 
tan ico, 635, 89 andar, tel.: (021) 294-7438, 
Rio de Janeiro, RJ, e na Av. Paulista, 2001, 
grupo 1020, tel.: (011) 289-0099, Sao Paulo, 
SP. 

• Utilizacao do dBASE II, Utilizacao do 
WORDSTAR e Formacao de Programadores 
sao os cursos oferecidos no me"s de marco pela 
ORT Brasil. Informacoes na Rua Dona Maria- 
na, 213, Botafogo, tel.: (021) 226-3192, Rio 
de Janeiro, RJ. 

• A FUNDEP e a Universidade Federal de 
Minas G era is estarao oferecendo os seguintes 
cursos para o mes de abril: BASIC ni'vel avan- 
cado, FORTRAN ni'vel avancado, Pascal ni'- 
vel avancado, VisiCalc e Prograrnaca*o de Com- 
putadores COBOL. Informacoes na Av. An- 
tonio Carlos, 6627, Pampulha, tel.: (031) 
441-4980, Belo Horizonte, MG. 

SEMINARIOS 

• O Instituto Brasileiro de Admin istracab 
Municipal — IBAM ja" tern programados para 
abrit os seguintes seminarios: Automacab de 
Escritorios, Organizacao de Banco de Dados, 
Informatica Distribui'da, Redes de Telepro- 
cessamento, Como o Usuario Pode Especi- 
ficar Sistemas e Projeto de Sistemas de Pro- 
cessamento Distribufdo. Informacoes no Lar- 
go do IBAM, n? 1, Botafogo, tel.: (021) 266- 
6622, Rio de Janeiro, RJ. 

• Para informar ao lertor sobre os cursos que 
esta"o sendo oferecidos, a revista recolhe in- 
formacoes em dlversas instituicoes ou as rece- 
de pelo correio. Portanto, na"o nos responsabi- 
lizamos por quaisquer alreracSes posterior- 
mente efetuadas por estas instituicoes nos 
programas ou precos. 
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Rua Visconde Silva, 25 - 
Botafogo - Rio de Janeiro - RJ 
CEP. 22281 - Tels.: (02 1 ) 
286-1797, 246-3839 e 266 0339. 



Al. Gabnei Monteiro da Silva, 
1227 — Jardim Paulistano — Sao 
Paulo - SP - CEP. 01441 - Tel. 
(011)853-3800. 



NUMEROS ATRASADOS? 
PEQA HOJE MESMO 

• Voce pode fazer o seu pedido por carta. 

• Junte a este um cheque cruzado, 
nominal a ATI Editora Ltda., no valor 
correspondente ao seu pedido. 

• E nao se esqueca de enviar o seu 
endereco. 




A geracao def initiva e sempre a prdxima 
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O JR da Sysdata a fapido, a versatiL a compacto. 

Conlabrtidade, controkj da contas a pagftf , controte de 
contaa a racabar, folha de pagamento, controte da esto- 
ojua, coritrote da clientes, relatfido da client&s, mats direta, 
calculos de or^amentos f inancairos r QDritrole da prrx:essos 
indu stria is, calcutos de eogeriharia, cSlculos de estatfsti- 
cas, fun^Ses rnatematicae^ lun^Oes I6gicas em cadeia da 
caracteres {STF«INGS) r grtficos, jogos animados, progfa- 
mes educacionais, 
O JR PERMITS AINDA: 

O acesso a grander $i$tamas dacornputacao, a comum- 
C393o antra os departamentos de Empresa, efetuar pro- 
gramas aspeeff icos para cada Eonpre&a. 

E, como se n§o bastassE. ale b o MicrcKComputador da 
manor pra^o do marcado 

Com todas as qualidades que tern, o JR da Sysdata nam 
precisava $er tao acoromico. Mas e. 

Afinal, ate a o mais compteto Micro-Cornpyiador de sua 
QBracflo. 

tnckisive no pre^o. 

Voce pode testa r estas a outras qualidades do JR em 
qualquer dos nossos mvendedores; 
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AV. PACAEMBU, 788 
CEP 01 155- TEL: 67.5300 



REVENDEP0HE?: SAo PAVLO/C«pftal Ad Dutz S&4.S3D0; ADP Systom ZZ7.6100; Sucker B81.7996; Cnonea 36.636); ComfkimHfkflitng 212.90WJ Coiwpuw 3K-0633^ Com 
putwlund 231 .3277; Fota Lfro3S 7131; Foi*iica 8&3.0MS; GuOtm 2&.9Q6 1 ; Hcrti 203.5597; Intcff ftu »52. 3B03; Lems 2tO.B929j Micforei 38 1 .0022, Mip*o<sc 2S3.4S41 ; HovaGsra- 
t-3o BM.3663; O.P.A. 35.6635; PlanOata 27S.01BI; Plamel 543.9653: Sacco 8H.06Sfl.: Swvirrtfc 222.1511: Sisttnac ^S2.99Q9; S.O.S. 95.71666; Hunt's 36906S7. C4m«i4n« ■ 
Cwmouicr Hou» 85? 5355: CdohpuHciud 32.5322, Mcrota4t 32.4445, He Omro - Coml. Micro Cosmos 34 .5801: Rttwlrio Pttto - Compg^ys 635 1 195 - Af**** - Copet 41 .3779; 
TMdmi - Enatcon 33.22S2; MotfOu^u ■ [.;..i h^u mug J&l. 0236: Brmg^^m Pwbn ■ Inicrdala 543,5193: Bwjrur MvMt - SifKO 33 .4 109; Catwufuva ■ Tfltetfj'io 22.31^9: RIO 
DE JAHEIHO/CaeKil - Clap- 223.0734; Compunque 267.1093: G D M Jnlomiinc-d 2B4 .3744 J«l iiti C^ttt 745 4180- Kiislmn 391,3165' SupnatBnto 274 3845 Pitr4p«lti Foio Oli 
Oi 42.1391, MINAS OERAIS.B«Iq H«tnon|« . Ca<mpucitv 226 5335; Compulse 225.2617; Kenxtro^ 225.0644, Minas Digital 337.7943, P&fa. da C*ld*« - Cdmp^iiiqua 721 .5310; 
flIO GRANDE DO SUL.'Porw AUgr> A^vij-ncinq 26 1194: Apfctct 24.0465; DigHal 24 1411; Mi tresis 22.9782; FflJotn Sistemanka 22.3310; Novo ^•mborgo Mkrenwga 
93.4721: PARAMA/Cur+tlb* ■ Computique 243.1731; Micro System 232.3633, Mtugrn 232 0683: Pwm Gruw Grupo Data Memory 24.5131; Lvndrim - Shop Compute* 
23.9674; QOlAS/GoUitl* ■ Casa do Miriecompiutador 223.1 166; Grupom 225.3226. SANTA CATARlNA,FlcHinrt6poJiB ■ Cijun 22 5S33' Inlotet 23 4777- HHA$J LI A /&!■&*& 
Mm* - CortWuUiow 273.2123: QigiCPC 2254534: MATO GHOSSO DO SUUCvnpo GrvKh DRL 332.6437; Video 321 4220, CEARA/ftvulua Siscompy 244.46S1; 
PARAlBA/Job PtMH - Medusa 221 .6743: PERNAMBUCO/fl»cM* - ttoqK* 241. 1388, 




Envie suas perguntas 

para MICRO SISTEMAS/ 

SECAOMSRESPONDE: 

Rua Visconde de Silva, 25, 

Botafogo, 

Rio de Janeiro- RJ, 

CEP. 22281. 



Pergunta — Tenho tres duvidas que 
surgiram com o uso do meu CP-200: 
1} Na MS n9 27, pag. 64, Secao Dicas, 
ao radar a dica "Teste a ROM", o resuf- 
tado obtido foi 855106 e nao 855660, 
co mo estava escrito. £ defeito do meu 
micro ou e erro de impressao ? 

2) Na MS n9 23, pag. 76, a dica "In- 
verta o video" nao e aceita pelo 
CP-200, e ocorre erro na hora de in- 
troduzir os comandos atraves do moni- 
tor Assembler publicado neste mesmo 
numero. Por que ocorre erro, se o 
TK82-C e o CP-200 sao compatfveis? 

3) Ao ten tar carregar o meu micro 
atraves da funcao LOAD, ocorreram 
erros como, por exemplo: ao listar, 
aperece todo o programa, mas, ao ro- 
dar, o computador simp/esmente igno- 
ra a/guns trechos do programa; e ainda 
surgiram linhas inexistentes no progra- 
ma e fora de ordem (linhas 100, 105, 
480 (?) e 110/ Esses erros ocorreram 
somente em um programa. Qua! e a 
causa destes erros? (Fernando Cesar 
M. Brunner, SP). 



MICRO SISTEMAS - Como voce, 
uma serie de outros usuarios nos escre- 
vem diariamente, com duvidas seme- 
Ihantes. Tentamos, na medida do 
possfvel, responde- las, repassando a 
experiencia que adquirimos como 
usuarios nestes dois anos de existen- 
cia, porem certas questoes indepen- 
dem do nosso conhecimento. Infeliz- 
mente, nao e praxe da industria nacio- 
nal manter as revistas informadas so- 
bre modificaeoes em seus equipamen- 
tos, e nao raro temos conhecimento 
das particularidades de certos equipa- 
mentos atraves de leitores e colabora- 
dores que nos escrevem relatando suas 
experiencias. 

Como nao e possfvel manter em 
nosso CPD um exemplar de cada ver- 
sao (alguns micros nacionais, de uma 
mesma linha, chegam a ter sete ou oito 
disposipSes internas dos circuitos dife- 
rentes), algumas questoes ficam preju- 
dicadas no seu esclarecimento. Em to- 
do caso, e sempre conveniente anali- 
sar o problema detalhadamente. Se os 
defeitos independent do programa, tal- 
vez o micro esteja com problema. Mas 
se o defeito e setorizado, como e o 
C3SO, pode ser o Sistema Operacional 



modificado. De qualquer forma, um 
diagnostico nao invalida o outro, e 
e necessario que a explicacao do que 
ocorre com seu equipamento seja mais 
clara e detalhada para que possamos 
tentar entender o que realmente esta 
acontecendo. 



Pergunta - Tenho algumas duvidas 
com relacao a dois programas publica- 
dos em MS n°s 23 e 25, respectivamen- 
te "Aventuras na selva" e "Jornada nas 
est re/as". No "Aventuras", mi nhas du- 
vidas sao: 

1 - Nao en tend i a linha 126: 126 IF 

2 THEN GOTO Z 

2 - A linha 601 manda desviar para 
a linha 39, mas na listagem nao existe 
a linha 39. 

3 — A parte do programa que ex plica 
a digitacao (pag. 52} recomenda usar o 
comando GOTO 7, no caso de parada 
do programa, mas nao existe a linha 7. 

£ no programa "Jornada nas estre- 
las", o computador acusa erro 2 ao 
dar entrada nas variaveis utilizadas nas 
Hnhas 1 ate 33. (Wilson F. de Souza 
Correa, RS). 

MICRO SISTEMAS - Com relacao ao 
programa "Aventuras na Selva", as 
correcoes que havia ja foram publica- 
das na Mensagem de Erro, mas, mesmo 
assim, estas correcoes nao cornprome- 
tiam de forma alguma o funcionamen- 
to do programa. Para facUitar, vamos 
repetir novamente estas erratas; 

• A linha 55 correta e: 55 IF C < 
LEN U$ THEN GOTO 51. 

• A linha 420, que na*o saiu im- 
pressa, e: 420 IF NOT CODE B$(2) 
THEN GOTO 56. 

• E na linha 90, da tabela de dados 
do monitor (pag. 49), o certo e: 90, > 
IEIBIF. 

Com referenda as suas duvidas, a li- 
nha 126 usa um desvio condicional 
comandado por um operador logico 
(no caso, a variavel Z). Isto significa 
que se Z ■ 0, entao nao ha desvio, mas 
se Z < >0, o programa e desviado para 
a linha apontada por Z. Sobre opera- 
dores logicos e desvios condicionais, 
leia o artigo "TK82-C: Um micro so 
no tamanho" (MS n° 14, pag. 36) eo 
capitulo do manual referente a desvios 
condicionais e operadores logicos. 



Com relagao as segunda e terceira 
duvidas, nao ha erro nenhum: se a exe- 
cucao de um programa e dirigida para 
uma linha que nao existe, o programa 
executa a proxima linha existente. Isso 
nao e erro de programacao, apenas pa- 
rece ser. 

No programa "Jornada nas estre- 
las", trata-se de um erro de digitacao. 
Proceda da seguinte forma: quando o 
computador parar com erro 2 (veja no 
manual que tipo de erro e o 2), locali- 
ze a linha em que tal erro ocorreu, e 
verifique qual variavel nao recebeu 
atribuicao (LET). 

As listagens estao corretas e, quan- 
do ha falhas, nos imediatamente pu- 
blicamos e respondemos por carta ou 
telefone. Pelo que percebemos de sua 
carta, voce esta com alguma dificulda- 
de com programas longos. Nao desani- 
me e mantenha sempre o manual perto 
de voce porque ele pode responder a 
99% de suas duvidas. E quando nem o 
manual for capaz de ajuda-lo, escreva 
explicando detalhadamente qual o erro 
e nos tentaremos ajuda-lo. 

Pergunta - Gostaria de uma explica- 
cao sobre como utifizar PEEKePOKE 
no TK82-C, pois o que existe no ma- 
nual e muito superficial para quern 
esta iniciando na linguagem Assembler. 
(Edna Badin, SP). 

MICRO SISTEMAS - As instrucoes 
PEEK e POKE sao duas instrucoes 
muito utilizadas na programacao dos 
micros e estao associadas a leitura e 
gravacao dos bytes na memoria. Pode- 
mos imaginar a memdria do compu- 
tador como uma grande estante com 
milhares de gavetas. Cada gaveta possui 
um numero que corresponded ao seu 
endereco na estante e pode guardar um 
numero qualquer inteiro e positivo 
entre e255. 

Dessa forma, se na gaveta 19500 for 
arquivado o numero 30, poderemos 
dizer que o byte do enderego 19500 
possui o valor 30. A funpao PEEK le o 
conteudo da gaveta. Assim, PRINT 
PEEK 19500 devera" resultar no nume- 
ro 30 na tela do vi'deo. A instrugao 
POKE arquiva o numero na gaveta e, 
dessa forma, POKE 19500, 40 altera o 
valor da gaveta 19500 para 40. 
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Inclusive para quern nSo _ 
pnecisa comprar K) disquetes 
deumavez. 



Datalife aprescnta sen album dtiplo: uma 
embalagciti adequada para qucm precise 
dc um ou dois disqucc.es agora e so vai 
precisar de outros daqui a algum tempo. 
Em vez de vote Hear eomprando disqucte 
solio por ai. que passage mao cm inao, 
com o album dupto voce lem coda a 
seguranca que existe. 



Ele contcm apenas dois disquetes 

e vem lacrado. 

E o que lem dent rp t voe^ jaconhcoe: 

Disqueles Daulife com certiflca^ao 

critica, com desempeuho muito alem 

das norm as iradiciotiais. e lOO*?o livres 

dc erros. 

Disquetes Dalalifc-na cmbalagcm 

normal 0u no album duplo, a garantta 

total de um nome que e lider mundial em 

msdia magnelica flexivel. 
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\ferbat 



lm 
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Nao perca tempo! Com este utilitario para a linha Sinclair voci podera, 
a partir de urn REM de f byte, construir REM de quantos bytes quiser 



Um REM de infinitos bytes 



Daniel Hendrick 



Uma das tarefas mais tediosas 
quando se quer montar um 
programa em linguagem de mi- 
quina 6 montar um REM com 

numero de bytes necessarios para de- 
pots inserir os dados hexadecimais. 
Quern ja" montou programas de mais de 

1 K sabe do que estamos falando. Que 
tal, entffo, um programa que, a partir de 
um REM de somen te 1 byte, o multipli- 
casse, num espa90 de tempo impercep- 
tivel, em quantos bytes fossem necessi- 
rios? 

programa descrito a seguir faz exa- 
tamente isto: monta um REM com o 
numero de bytes desejado. Esse REM 
deve ser localizado no initio do progra- 
ma. Depois daremos as dicas de como 
usa-lo para criar varios REM ou aumen- 
tar mais de uma vez o mesmo. Para 
montar o nosso programa, usaremos o 
monitor Assembler, publicado em MS 
n9 23 de agosto de 83. 

DIGITAgAO 

Primeiro, acrescente ao monitor As- 
sembler a listagem 1 . Em seguida, digi- 
te a listagem 2. O REM da linha 1 com- 
porta 36 bytes disponiveis onde vai ser 
inserido o programa em linguagem de 
miquina que vai expandir o seu REM. 
REM da linha 2 comporta 1 byte dispo- 
nivel e 6 este que nos vamos expandir e 
usar para as rot in as. 

Para concluir, digite a listagem 3, 
usando o modo A do seu monitor As- 
sembler. 



OPERACAO 



Para comec/ar a desenvolver um pro- 
grama em linguagem de maquina, voce 
devera* criar o seu REM de um compri- 
mento igual ao numero de bytes do seu 
programa. Para isso, voce dara entrada 
no item H do seu monitor, e fomecera 
o numero de bytes necessarios ao seu 
programa. Apos isso, o monitor automa- 
ticamente criara o seu REM e retornara" 
ao monitor. 

Para deixar o seu REM no comedo do 
programa, basta deletar a linha 1, to- 



Listagem 1 



1010 PRINT ,,"**** MICRO EDITOR 
ASSEMBLER ****",,., "JOSE CARLOS 
NISA" , "MICRO SISTEMAS/1983" , 
"MODOS DE OPERACAO:", , , "A - INSE 
RE DADOS HEXADECIMAL", "B - INSER 
E DADOS DECIMAL", "C - EXECUTA RO 
TINA ASSEMBLER", "D - RETORNA AO 
BASIC" ,"E - ARQUIVA EM FITA","F 
- INSERE LINHA DE DADOS " , "G - EL 
IMINA MICRO EDITOR", "H - EXPANDE 

REM" 
1090 IF US<"A" OR U$>"H" THEN GO 
TO 1070 

5500 PRINT "NUMERO DE BYTES ?" 

5510 INPUT A 

5520 FAST 

5530 LET B=INT (A/256) 

5540 POKE 16515, A-256*B 

5550 POKE 16516, B 

5560 RAND USR 16514 

5570 SLOW 

5580 GOTO 1030 



2 bytes 2 bytes 



1 byte 



-Z- 



<t 



-^^ 



-£- 



-> 



Numero Quantidade 

da linha de b y te do 
texto + 1 



Texto 



NEWLINE 



Ustagem 2 



1 REM 11111111111111111111111 
1111111111111 

2 REM 1 



Listagem 3 



16514 01 00 00 21 AC 40 E5 C5 

16522 CD 9E 09 Cl 2A A9 40 09 

16530 22 A9 40 2A 29 40 09 22 

16538 29 40 El 36 ID 23 0B 79 

16546 B0 20 F8 C9 



mando cuidado para nao mais entrar no 
item F do monitor (para evitar qualquer 
problema troque a linha 4500 por GO- 
TO 1030). 

CRIANDO VARIOS REM 

Para criar varios REM, sera" necessario 
mudar alguns valores na rotina em lin- 
guagem de miquina, contida no REM da 
linha 1. Paxa saber quais sao esses valo- 
res, veja na figura 1 como e escrita uma 
linha de programa na memoria. 

Serf necessirio conhecer o endereco 
na memoria do primeiro byte do valor 
que indica a quantidade de byte do tex- 
to mais um do REM a ser expandido e 
que chamaremos variavel A. Chamare- 
mos variavel B o endereco na memdria 
do primeiro byte a ser deslocado dentro 
do texto. 

Agora, efetue as seguintes operacoes: 



POKE 


16519 


INT(B/256) 




POKE 


16518 


B-256*PEEK 


16519 


POKE 


16528 


,INT(A/256) 




POKE 


16527 


f A-256*PEEK 


16528 


POKE 


16532 


PEEK 16528 




POKE 


16531 


,PEEK 16527 





Figura 1 



E depois, entre normalmente no item 
F do monitor. ■ 

m 



Quando voce precise 
de suprimentos para 

informatica, voce prefere 



D Qualidade D Preco 



Kl Qualidade 



FIT AS 

MAGNETICAS 



Na Memphis, voce 
tern 100%de garantia quanto a 
qualidade do produto, pois caso 
ele na"o satisfaca suas exigencias, 
voce simplesmente o devolve. 



&s- 



,53 Preco 



A Memphis tern mais 
de 400 produtos e torna-se dif fcil 
list^-los aqui, porem, basta um 
simples tetefonema para a nossa 
filial mais pr6xima e voce tera 
imediatamente o preco de qualquer 
produto para informStica. 
Voce vera que nossos precos sao 
os melhores do mercado. 








H"y 



PASTAS PARA 

FORMULARIOS 
CONTI'NUOS 



SAO PAULO Central de Vend as RIO DE JAN E I RO : Filial 

Av, Arnotfo Aievedo, 108 - CEP 0t236 Praia do Flamenyo, 66 - Bloco B - conj. 1519 

Telex:(011l 34545 - Sao Paulo- SP CEP 22210 - Rio de Janeiro - RJ 

Tel.: (Oil) 262-5577 Tel.: (02 It 225-3469/205-3849 

Matriti Av. Angelica, 35 - SSo Paulo - 101 1 ) 826-9500 
REPRESENTANTES 

8A - Salvador (071) 241-6369 • DF - Brasilia I06U 223-3330 «MG - Belo Horizonte 
(031) 442-9472 • PR - Cunttba (041) 222-4831 • RS - Pono Alegre 105121 25-9273* 
SC - Flonanopolis (0482) 132 R. 15 • SP - Bauru (0142) 228-4305 • SP - Jundtai 
(011) 434-3199 *>SP - Presidente Pendente (0182) 22-7999 



IHemphis 

MEMPHIS INDUSTRIA E COM£RCIO LTDA. 



1 Revendedores e Fabricantes interessados: (01 1 ) 262-5332 
'Para encomendas o interurbano sera" pago pela Memphis. 
Ligue direto [01 1 ) 800-8462 
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Como os colegios estao se adaptando a era do microcomputador aliado a Educacao e o que 
existe no mercado em termos de software aplicativo 



O microcomputador 
na sala de aula 



OmiCTOComputador 
esta chcgando is 
escolas brasilciras. £ 
bcm verdade que a 
porta da administracao e a mais 
fa'cil de sc cntrar, mas ja' ha 
casos dc plena utilizacao cm sala 
dc aula, com os alunos fazendo 
cxercicios de matcma'tica ou 
comprcendendo mclhor a 
montagem de uma molccula. 
Mas isso c mugto rcccntc c a 
cxpcricncia ma is antiga, das 
sete Escolas Americanas no 
Brasil, esta completando dois 
anos agora. 

Fred Kautz, rcsponsa'vel 
pelos micros da Escola 
Americana do Rio de Janeiro, 
diz que a escola vem rcalizando 
um trabalho seme lh ante ao que 
c descnvolvido nos list ados 
Unidos. (Ele mesmo dcu 
cursos para varios professorcs da 
cscola que aplicam o micro 
como apoio dida'tico). No 
Scgundo Grau, ps alunos 
recebem nococs dc computacao 
c aprendem as linguagcns BASIC 
c Pascal, mas o primciro contato 
com os micros se da' ainda no 
pre-escolar.a partirdos4 anos. 
Na cscola, ha duas satas dc 
micros, uma para o Primciro 
Grau, sob a coordenacao da 
professora Rita Nicdcrer, com 
seis L'niiron (APII) e dois 
Apple, todos acopbdos com 
aparelhos dc TV a cores, c outra 
para o Scgundo Grau, sob a 
coordenacao dc Fred Kautz, 
com dois CP-500 c scis TRS-80 
da empresa americana Radio 
Shack. Quanto aos programas. 
Kautz ex plica nao haver 
dificuldade, pois como a lingua 
basica da cscola e o ingles, elc 
os compra nos Est ados Unidos, 
ondc sao abundantcs. 

DO MATERNAL 
AO PR£ VESTIBULAR 

Mas como no Brasil 
isso ainda e 
novidadc, 
o Cole'gio Objetivo 
de Sao Paulo contratou 
nove analistas que, em 
conjunto com os professorcs, 
descnvolveram 210 programas 
para todas as materias, desde 
o maternal ate o pre-vestibular. 
Com 30 mil alunos, o Objetivo 



possui divcrsos micros, entre 
CP-300, CP-500, APII e Micro 

Engcnho, que tarn bcm sao 
utilizados para ensinar as 
linguagcns BASIC c Logo. 

O Coiegio Pucri Domus, 
tambem dc Sao Paulo, c um dos 
pioneiios no uso do micro- 
computador em sala dc aula, 
utilizandoo ha' um ano no 
Scgundo Grau c agora tambem 
no Primciro Grau. Ainda na 
capital paulista, ha os colegios 
Bandcirantcs, que usa micros 
para recapitulacao de aulas, 
e Etapa, que os usa como um 
recurso equivalentc aos filmes, 
simulando ilustracoes. 

Ja o Ccntro Educacional de 
Nitcroi vem utilizando micros 
ha um ano. Scgundo a 
coordenadora dc Informatica da 
cscola, Nicia Pereiia Muniz, um 
trabalho conjunto entre os 
professorcs do Ccntro e a 
Embratcl resultou na cria^ao dc 
20 programas para Matematica 
c Poriugues que, a partir deste 
ano, scrao utilizados para 
aprendizagem normal em sala 
dc aula cm duas turmas da 
quarta seric.c para rccupcracao 
dc alunos da quinta e scxta 
scries. Alcm disso, o Ccntro 
possui um Clubc de Matcma'tica, 
como atividadc optativa, que 
devcra' fazer um projeto especial 
com microcomputadores, a scr 
escolhido pelos alunos em 
conjunto com o coordenador do 
Clubc. Atuatmente a cscola 
possui cinco CP-500. 

CULTURA 
DE INFORMATICA 

Com o objetivo 
imediato de 
"desenvolver uma 
eultura de Informatica 
para uma utilizacao posterior", 
Lui's Antonio Silveira, diretor da 
Escola Senador Corrcia, no Rio, 
comprou um Unitron com 
varios pcrifcricos, inclusive uma 
impressora. Neste primeiio 
scmestrc, scrao dados na cscola 
varios cursos para os 
professorcs, a fim de que eles 
proprios cheguem a desenvolver 
programas educativos paia o 
Primciro Grau. Dc qualquer 
modoja' a partir do scgundo 
semestre, as criangas passarao a 



tcr contato com os micros em 
excrci'cios de recuperacao, para 
melhor fixarcm as aulas. 

Alcm destcs, exist cm outros 
colegios que, ao inves de 
utilizarem o microcomputador 
como suporte para o ensino 
das materias curriculares, 
limitaram-se a ofcreccr a scus 
alunos um curso de BASIC, 
como e o caso dos colegios 
Anhcmbi, Iavne Beith 
Chinuch, Brasil, Bandeirantes, 
Etapa, Unjvcrsita'rio, Sagrado 
Coracao dc Jesus, Rio Branco, 
Brasil-Europa, Benjamin 
Constant e Santo Agostinho, 
em Sao Paulo; c Ccntro Federal 
de Educacao Tccnologica Celso 
Suckow da Fonscca, colegios 
estaduais Otavo Bitac e Paulo de 
Front in, Coiegio Franco - 
Brasilciro e Coiegio Bahicnse, 
no Rio. 

O Coiegio Bahiense esta 
entrando ncsta a'rea estc ano e, 
para isso, vai comprar 10 
m icrocomputadores compati'veis 
com o TRS Color Computer. 
Numa segunda etapa, segundo o 
professor Maicclo Ferro Costa, 
alcm de ampliar o curso dc 
linguagcns com o ensino do 
Pascal c Cobol, o coiegio vai 
substituir os servicosdos 
bureaux por cquipes do proprto 
coiegio, aproveitando, inclusive, 
alguns alunos vindos dos cursos 
de micro, para fazer trabalhos 
na parte administrativa. Mas a 
medio prazo, o coiegio pretende 
tambem desenvolver software 
cspcci'fico na area de Educacao, 
montando uma cquipe 
cspccialmentc para esse fim, 
pois "nao cxistc software 
educacional dc boa qualidadc 
disponivel no mercado, sendo 
a maioria deles clcmcntar" 1 . 

CIRCULO V1CIOSO 

Elementares ou nao, os 
programas estao 
surgindo. No entanto, 
ha nesta area um 
ci'rculo vicioso que ja comeca a 
ser rompido pelas escolas: as 
soft -houses nao de sen vol vem 
programas porque nao ha 
mercado, e nao ha mercado 
porque nao hi programas. 
Assim , num giro pclas lojas 
especializadas e soft-houses, 
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podc-se achar coisas como 
Tutor de Matematica, da 
Microsoft, para os TKs 82, 83 c 
85 ; Vocabulario Portugues- 

Inglcs, da Micro Kit, para a linha 
Sinclair; Linguagem MLogo, da 
Microarte, para a linha Apple; 
Estatistica I e Matematica I, da 
Microsoft, para a linha Sinclair; 
Operacoes Aritmeticas, da 
Clappy, para o Color 64 ; 
Educational Games americanos, 
dc va'rios fabricantes, para a 
linha Apple; programas de 
Eletronica c graiico de circuitos 
e simulacao de situagoes 
mat emit icas, da BMK, para 
qualquer micro com CP/M; 
Editor de Figuras e Contas, da 
Everton Consultoria e Software, 
ja vendido para um jardim dc 
infancia de Nitcroi, para o CP- 
500; e o Sinapre, de Nereide 
Schilaro Santa Rosa c Francisco 
Carlos Santa Rosa, software 
voltado para a pre-escola, mas 
ainda nao adotado por nenhum 
estabelecimento, e a venda em 
lojas dc Sao Paulo. 

A realidade da cscola 
brasileira, contudo, ainda 
permanece bem distante dos 
microcomputadores. A escola 
publica ncm sonha com isso, 
ainda as voltas com problcmas 
ba'sicos como instalacoes 
adequadas e merenda escolar. E 
a escola particular trava uma 
discussao pedagogica e 
idcologica sob re a importancia 
dos microcomputadores na 
Educacao. Enquanto isso, a 
Prologica teats dar um passo a 
frente, oferecendo seus micros a 
precos espcoiais, com o objetivo 
de facilitar as escolas a 
introduzirem nos seus 
programas de ensino a materia 
Proccssamento dc Dados. E as 
criancas, alucinadas com a febre 
dos videogames, a cada dia sc 
intercssam mais pelos 
microcomputadores, 
procurando obtcr maiores 
conhecimentos em cursos de 
Easic, espccialmcntc ministrados 
para elas, que comecam a 
mostrai-se bastante populares 
e lucrativos para as lojas, 
cursinhos c mesmo tradicionais 
univcrsidades. 



Texto: Lucio Santos 
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Datalife tern 
resposta para tudo. 




E a Memphis 
respondejunto. 



Os Disquetes Datalife sempre tern 
um modelo exato para cada tipo de 
necessidade, seja ela para controles e 
decisoes empresariais, assuntos pessoais 
e profissionais ou lazer com 
microcomputador. 

fflemphis 



Sao os mais vendidos no mundo e 
produzidos pela empresa que mais 
investe em pesquisa e desenvolvimento 
de produtos, lider mundial na tecnologia 
de midia magnet ica flexivel. 

Tudo isso esta a seu dispor na 
Memphis. 

A Memphis responde , com a 
seguranca de que voce pode comprar 



seus Disquetes Datalife num local onde 

eles tern pai, mae, residencia conhecida, 

e garantia de 5 anos. 

A Memphis tern estoques para entrega 

imediata. 

\ferbatim. 
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Uma descricao passo a passo do im'cio do funcionamento do Monitor resldente 
no CP-500, que o ajudara a entender melhor o software basico desse micro 



A inicializa^ao do 
monitor no CP-500 



Desde que adquiri meu CP-500, 
com 48 Kbytes e gravador, fi- 
quei muito Lnteressado no Mo- 
nitor residente do micro. Anteriormen- 
te, fui propnetano de urn D-8000 e para 
este micro eu dispunha em minha bi- 
blioteca de dois programas momtores:o 
TBUG, da Radio Shack, e o ZBUG, que 
foi publicado na revista 80 Microcompu- 
ting, em Janeiro de 1981. Este ultimo 
era um monitor extremamente podero- 
so, com varias fa alidades, tais como co- 
pias de programas System, breakpoints, 
display em ASCII e hexadecimal etc, 
executando perfeitamente no CP-500. 

Estando sempre envolvido com pro- 
gramas monitores, naturalmente senti- 
me interessado pelo monitor residente 
no CP-500 e passei a estuda-lo. Fazendo 
uso do propho monitor e do com an do 
D (Display), examinei-o co m pie t amen te. 
Minha primeira preocupacSo era desco- 
brir onde o monitor se carregava na me- 
mo ria e qual o en de re 90 inicial de exe- 
cucao (o entry point ). Ao examinar 
en de re 90 final, ocorreu-me investigar 
tambem o relacionamento do Monitor 
com Interpretador BASIC, isto e\ co- 
mo era mostrado no video logotipo da 
Prologi ca e a men sage m BASIC (S ou N)?. 
Fazendo uso de um programa disas- 
semblador, obtive uma listagem do Mo- 
nitor e passei a examina-la. Apos uma 
analise detida, acabei por examinar a ro- 
tma de miciahzacSo do micro, isto 6, o 
que acontece quando se liga o computa- 
dor. Isto foi necessario para verificar 
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Mauricio Baduy 



como a rotma de micializacao permitia 
a apresenta^ao do logotipo e a pergunta 
inicial. E e justamente que descobn 
desta lmcializacao que pretendo descre- 
ver neste artigo. 

A INICIALIZACAO 
PASSO A PASSO 

Vamos apresentar entao todas as ins- 
trugoes executadas pela UCP quando da 
inicializacSo (quando se liga micro), 
ate que seja apresentado no video o lo- 
gotipo da Prologica e a pergunta inicial 
(*). Na explica^So dos efeitos das ms- 
trugOes, estarei me referindo ao livro 
Z80 Assembly Language Programming, 
de Lance Leventhal, da cole 9^0 Osborne/ 
McGraw-Hill. (Veja na figura 1 a lista- 
gem completa das instrugSes executadas 
durante a micializacao). 

Quando voce liga o seu CP-500, o 
contador de programa da UCP (PC) e 
inicializado com 0000, sendo este en- 
deteqo da primeira instrugao a ser exe- 
cutada pela UCP. Se voce utilizar Mo- 
nitor residente de seu micro, voce po- 
dera checar os codigos hexadecimais das 



* Nota do Autor: Os enderecos referidos 
neste artigo s3o v^lidos para as EPROMs ori- 
ginals do CP-500. Como a Prologica ja" proce- 
deu a revisoes, os enderecos,e eventualmente 
algumas instrucoes, podem n3o corresponder 
exatamente ao que se apresenta nesta oportu- 
nidade. Posteriormente, em outros artigos, fa- 
re! comentSrfos sobre as novas EPROMs. 



instrugoes, que senfb listados juntamen- 
te com os mnemomcos, na segunda co- 
luna, apos a coluna de endere^os. (Note 
que os enderegos estffo em hexadecimal 
(H). Use o Monitor para acompanhar a 
descrigSo a seguir. 

Assim, a pnmeira instrugao a ser exe- 
cutada, localizada no endere90 0000 e: 

0000 F3 DI 

Esta instrucao inibe as interrupcoes 
que eventualmente podenam ser recebi- 
das pela UCP e que podem ser imbidas. 
O CP-500 possui um Z80 como proces- 
sador central e este possui dois tipos de 
mterrupcOes : as mascaraveis (maskable) 
e as nao-mascaraveis (non-maskable). As 
mascaraveis podem ser inibidas ou igno- 
radas se assim desejamos; as nao-mas- 
caraveis nao o podem. 

(As interrupgdes, para os que nao sa- 
bem, sao recursos te"cmcos muito lmpor- 
tantes, que permitem aos penfencos e 
outros dispositivos requisitarem a aten- 
cSo imediata da UCP, na verdade apos 
completada a instrugSo que estiver sen- 
do executada.) 

No CP-500, o relogio intemo, o cas- 
sete e a interface RS-232, entre outros, 
emitem interrup9<5es mascaraveis para a 
UCP. No caso do relogio intemo, um 
sinal de 30 Hz interrompe penodica- 
mente a UCP para que o reldgio seja 
atualizado e controlado e para piscar o 
cursor. Assim, a instrucao DI inibe este 
tipo de interrup93o ongmada pelos dis- 
positivos penfericos mencionados, po- 
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0000 


ra 


DI 


0001 


AF 


XOR 


0002 


C31530 


JP 


3015 


C35534 


JP 


3455 


ED56 


IB 


3457 


317D40 


LD 


34 5A 


D3E4 


OUT 


345C 


F620 


OR 


345E 


D3EC 


OUT 


3460 


3E81 


LD 


3462 


D3F4 


OUT 


3464 


3ED0 


LD 


3466 


D3F0 


OUT 


3468 


CD2535 


CALL 


346B 


DBFO 


IN 


346D 


3ED0 


LD 


346F 


D3F0 


OUT 


3471 


CD2535 


CALL 


3474 


DBFO 


IN 


3476 


3E04 


LD 


3478 


D3E0 


rv-T 


347A 


3E0B 


LD 


347C 


D3FO 


OUT 


347E 


21AA36 


LD 


3481 


110040 


LD 


3484 


014C00 


LD 


3487 


EDBO 


LDIB 


3489 


21F936 


LD 


348C 


11E541 


LD 


348F 


013FOO 


LD 


3492 


EDBO 


LD1R 


3494 


DBF4 


IN 


3496 


210030 


LD 


3499 


110043 


LD 


349C 


010008 


LD 


349F 


EDBO 


LDIR 


34A1 


C3AA47 


JP 


47A4 


DBF4 


IN 


47A6 


CDC901 


CALL 


47A9 


CD8D02 


CALL 


4 7 AC 


C2CC47 


JP 


47AF 


DBFO 


IN 


47B1 


3C 


INC 


47B2 


CACC47 


JP 


47CC 


3E0D 


LD 


47CE 


0606 


LD 


47D0 


CD3300 


CALL 


47D3 


10FB 


DJNZ 


4705 


112149 


LD 


47D8 


D5 


PUSH 


47D9 


21523C 


LD 


47 DC 


CD3449 


CALL 


47DF 


21D23C 


LD 


47E2 


DI 


POP 


47E3 


CD3449 


CALL 


47E6 


21923C 


LD 


47E9 


112849 


LD 


47EC 


CD3449 


CALL 


47EF 


21123D 


LD 


47F2 


112F49 


LD 


47F5 


CD3449 


CALL 


47F8 


21DB3C 


LD 


47 FB 


111049 


LD 


47FE 


CD3449 


CALL 


4801 


213848 


LD 


4804 


CD1B02 


CALL 


4807 


3E3F 


LD 


4809 


322340 


LD 


480C 


CD4900 


CALL 


480F 


FE53 


CP 


4811 


CA1C48 


JP 


4814 


FE4E 


CF J 


4B16 


CA2448 


JF 


4819 


C30C48 


JP 


481C 


3EB0 


LD 


481E 


322340 


Lb 


4821 


C3A337 


If 


4824 


219048 


LD 


4827 


220442 


Lb 


482A 


3EB0 


US 


482C 


322340 


LD 


482F 


C30O43 


JP 


4832 


21A148 


LD 


4835 


C33647 


JP 


4838 


0£ 


DEFB 


4839 


42 


DEFM 


4847 


03 


DEFB 



4910 
4920 00 



DEFM 
DEFB 



A 

301 5H 

34S5H 

1 

SP , 407DH 

(E4H) ,A 

20H 

(ECH) ,A 

A.81K 

(F4H),A 

A.DOH 

(FOH).A 

3525H 

A , ( FOH ) 

A.DOH 

(FOH), A 

3525H 

A , ( FOH ) 

A.04H 

(EOH) .A 

A.OBH 

( FOH ) , A 

HL.36AAH 

DE , 4000H 

BC.004CH 

HL.36F9H 
DE.41E5H 
BC.0O3FH 

A.CF4H) 
HL , 3000H 
DE.43DOH 
BC , 0B0OH 

47A4H 

A,(F4H) 

01C9H 

028DH 

NZ.47CCH 

A , ( FOH ) 

A 

Z.47CCH 

A.ODH 

B.06H 

0033H 

47D0H 

DE.4921H 

DE 

HL.3C52H 

4934H 

HL.3CD2H 

DE 

4934H 

HL.3C92H 

DE.4928H 

4934H 

HL.3D12H 

DE.492FH 

4934H 

HL.3CDBH 

DE.4910H 

4934H 

HL.4838H 

021BH 

A.3FH 

(4023H),A 

0049H 

's' 

2.481CH 

'n' 

Z.4824H 

480CH 

A, BOH 

(4023H),A 

37AEH 

HL.4890H 

(4204HJ.HL 

A, BOH 

(4023H),A 

4300H 

HL.48A1H 

4736H 

OEH 

'BASIC (S ou N)' 

03H 

"PROLOGICA CP-500' 
00H 



dendo as mesmas ser habilitadas seleti- 
vamente quando for necessario. 

Z80 reage as interrup9<5es mascara- 
veis de tres modos diferentes: 

1 — No modo 0, i possivel que pen- 
ferico ou dispositivo que onginou a in- 
terrup93o coloque um byte na via de da- 
dos da UCP. 

2 — No modo t t as interrupfoes for- 
9am um reinicio (restart) no en de re 90 
38H. 

3 - No modo 2, acessa-se um deternu- 
nado endere90 formado pelo byte for- 
necido pelo dispositivo e pelo byte cor- 
rente do registro I do Z80. 

Estes modos sao selecionados pelas 
instru95es IM 0, IM 1 e IM 2. 

O outro tipo de interrup92o do Z80 
s£o as nSo-mascaraveis. Estas nao po- 
dem ser ignoradas ou imbidas e, quando 
ermtidas, for9am um reini'cio a partir do 
endere9o 66H. Quando se aperta o bo- 
tao RESET do CP-500. origina-se uma 
interrup95o nao-mascarivel. 

O CP-500 manipula as interrup96es 
por meio de portas. Por exemplo. a por- 
ta EOH, quando usada como sai'da.habi- 
lita interrup90es mascaraveis de vinos 
dispositivos, dependendo do bit ativo do 
byte emitido pela porta. Veja a figura 2 
para uma rela9ao completa. 



BIT 
ATIVO 



" 
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TNTRRRUPgAO HABILITADA 



Borda de subida da ve- 
locidade de 1500 bauds 



3orda de descida da ve 
locidade de 1500 bauds 



Relogio de tempo real 
interno 



Perilerieos E;-:ternos 



Interface RS-2 32C 



Nao usado 



Figura I - Rotina de inicializacao do CP-500 
MICRO SISTEMAS, marco/84 



Figura 2 - Porta EOH - habilitacao de inter* 
rupgoes mascardveis, 

A porta EOH, quando usada como 
entrada (IN), permite saber quern regis- 
trou a interrup9ao, dependendo do bit 
ressetado do byte contido no Acumula- 
dor. mantida a mesma associa9<Io bit- 
dispositivo. como se pode observar na 
figura 2. 

A instruca"o seguinte € : 

0001 AF XOR A 

A instrucao XOR reg impUca na exe- 
cucao de um OU exclusivo do registro 
especificado (reg) com o Acumulador. 
Neste caso, esta sendo realizado um OU 
exclusivo do Acumulador com o propno 
Acumulador. O objetivo da instru9a"o 
XOR A € simpiesmente limpar (zerar) 
o Acumulador e com este zeramento 
ajustar os flags do registro F para suas 
condi95es normais. 

Com o Acumulador zerado, a proxi- 
ma instru95o a ser executada e": 

0002 C3I530 JP3015H 



A instru9£o JP i um desvio Lncondi- 
cional para o endere9o especificado. de 
modo que a execu93o se desvia para o 
endere90 301 5H, onde encontramos um 
outro desvio incondicional; 

3015 C35534 JP 3455H 

Neste endere90, realmente come9a a 
rotina de micializagao. A partir da pro- 
xima instru93fo, a UCP ira realmente 
ajustar o sistema para uma cond^ao pre- 
fixada de parametros. bem como inicia- 
lizar determinadas areas da regia'o dc co- 
munica9oes da RAM: 

3455 ED56 IM 1 
Esta instru9ao coloca a UCP no mo- 
do de interrup9ao I. Assim, a UCP res- 
ponde a uma interrup93o mascara vel 
executando um restart no endere90 
0038H. 

3457 3I7D40 LD SP, 407DH 

Esta instru9ao ajusta a pilha (stack) 
no endere90 407DH. Isto e" necessario 
para perrmtir a utilizacao da mesma. 

MSA D3E4 OUT(E4H),A 

A porta E4H esta associada com as 
interrup96es nao-mascaraveis (NMI). 
Quando usada como saida, permite sele- 
cionar duas op95es de gera93o de inter- 
rup95es nao-mascaraveis, dependendo 
do bit ativo do byte emitido pela mes- 
ma. Quando usada como entrada, per- 
mite saber quern onginou a interrupyao. 
Emitindo um byte nulo por esta porta, 
estamos ressetando ou desativando as 
op95es que podem ser ativadas. 

345C F620 OR 20H 

A instru9§o OR 20H realiza a opera- 
9ao booleana OR entre o Acumulador e 
o byte especificado (20H). Como o Acu- 
mulador estava zerado, apos esta mstru- 
9ao o Acumulador contera 20H (ou 
OOIOOOOOembina'rio). 

345E D3EC OUT (ECH), A 

A porta ECH controla o motor do 
cassete, o tamanho dos caracteres no vi- 
deo e a sele9ao dos caracteres especiais 
ou Katakana. Com esta opera cao, o sis- 
tema desliga o motor do cassete, selecio- 
na 64 caracteres por linha e especifjca os 
caracteres especiais ao invds do alfabeto 
Katakana, que 6 a condi92o padrao do 
micro. 

3460 3E81 LDA,81H 

3462 D3F4 OUT (F4H) A 

A porta F4H e a porta de controle do 
FDC, que e' o controlador dos discos. 
Atrave's do byte emitido por esta porta, 
pode-se selecionar um drive, um lado do 
disquete, dupla/simples densidade etc. 
Carregando o Acumulador com 81 H (ou 
10000001 em bin a no), seleciona-se o 
drive 0, dupla densidade e lado 0. Ao 
emitir o byte 81 H, o led do drive 
acende e o motor do mesmo e energiza- ,#i 
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do por 2,5 segundos aproximadamente, 
caso o sistema possua discos. Se nao hd 
discos, nada acontecerd. 

3464 3ED0 LD AJJOH 
3466 D3F0 OUT (FOH)A 

Associada com a emissao de coman- 
dos ao controlador de discos, a porta 
FOH funcionano modoentrada (INPUT) 
como registro de estado (status) e na 
sai'da, como registro de comandos para 
o FDC. Emitindo o byte DOH por esta 
porta, o que corresponde a 11100000 
em binario, resseta-se (inicializa-se) o 
controlador de discos (FDC). 

3468 CD2S35 CALL 3525H 

Esta sub-rotina produz um atraso, pa- 
ra permitir ao controlador tempo para 
que ele reaja ao comando emitido. O 
c6digo desta sub-rotina e" o seguinte : 

3525 C5 PUSHBC 

3526 CI POPBC 

3527 00 NOP 

3528 C9 RET 

Em seguida. e" executada a seguinte 
instrucao : 

346B DBF0 IN A,(F0H) 
permitindo ao sistema o recebimento 
do estado informado pelo FDC em res- 
posta ao comando emitido antenormen- 
te. Como nao hi nenhuma decisdo a se- 
guir, parece-me um pouco fora de pro- 
posito tal grupo de instrucoes, que I re- 
petido novamente, como podemos ver 
abaixo: 

346D 3ED0 LD AJ30H 
346F D3F0 OUT (F0H),A 
3471 CD2535 CALL 352 5H 
3474 DBF0 IN A, (FOH) 
Em seguida, temos as seguintes ins- 
trucoes: 

3476 3E04 LD A.04H 
3478 D3E0 OUT(E0H)A 

Como visto, a porta EOH € usada 
como latch das interrupts mascara*veis 
e ao emitir o byte 04H, que corresponde 
em binario a 00000100 (portanto, com 
o bit 2 ativo) habilitam-se as interrup- 
c0es do relbgio de tempo real (veja a fi- 
gura 2). 

347A 3E0B LDA,0BH 
347C D3F0 OUT(F0H),A 

Estas instrucoes referem-se d porta 
FOH, ligada ao controlador de discos e 
usada na sai'da para enviar comandos ao 
FDC. byte OBH, que corresponde ao 
bindrio 00001011, representa o coman- 
do RESTORE, que posiciona a cabeca 
de gravacao/leitura na trilha 0. Os bits 
e 1 iguais a 1 (ativos) determinam que 
o tempo de acesso inter-trilhas seja de 
40 ms. 

As instruco'es a seguir, do is blocos de 
movimentacao de memdria, utilizando a 
poderosa instrucao LDIR do Z80,trans- 



ferem para a RAM os bytes que iniciali- 
zam os vetores das instrucoes RST e os 
blocos de controle de perife'ricos (DCB, 
Device Control Block), especificamente 
os seguintes: teclado, video e impresso- 
ra. No segundo bloco de instrucoes, e 
inicializada outra importante drea da 
RAM, correspondente aos DCBs da in- 
terface RS-232C (entrada, sai'da e inicia- 
lizacao) e ao DCB do direcionador 
(ROUTER) deE/S: 



347E 
3481 
3484 
3487 
3489 
348C 
348F 
3492 



21AA36 

110040 

014COO 

EDBO 

21F936 

11E541 

013F00 

EDBO 



LD HL36AAH 

LD DE4000H 

LD BC.004CH 

LDIR 

LD HL,36F9H 

LDDE,41E5H 

LD BC.003FH 

LDIR 



prdximo grupo de instruco'es in- 
trigou-me durante varias semanas: 

3494 DBF4 IN A,(F4H) 

3496 210030 LD HL^OOOH 
3499 110043 LD DE,4300H 
349C 010008 LD BC,08O0H 
349F EDBO LDIR 

A porta F4H normalmente s6 € usada 
para saida e neste grupo de instrucOes 
ela executa uma funcao que nao lhe e 
peculiar, o que ja 6 estranho. Mas o fa to 
£ que antes da execucdo deste grupo de 
instrucOes, um exame dos enderecos 
4300H e seguintes n5o revelava o Mo- 
nitor. Apos uma execucao do grupo, U 
estava o Monitor! 

Examinando a regiao em que se exe- 
cuta a instrucao LDIR (3000H e seguin- 
tes) de onde o Monitor originou-se, os 
valores en contra dos eram completamen- 
te diferentes dos do Monitor! Tentar in- 
terromper a execucao do grupo apos a 
instrucao IN A^FOH) e antes da proxi- 
ma instrucao, ressetava o micro compu- 
tador. 

Diante de tais fatos, fiquei inicial- 
mente um pouco confuso, mas acabei 
por resolver o miste'rio. 

O CHAVEAMENTO DA EPROM 

A instrucao IN A, (FOH) € responsd- 
vel por um chaveamento de uma das 
EPROMs, que numa situacao exibe o 
Monitor e noutra uma parte do Inter- 
pretador BASIC normal. Voce pode ve- 
rificar isto em seu micro, utilizando o 
pr6prio Monitor residente. Entre no mo- 
do Monitor e, utilizando o comando S, 
introduza os seguintes codigos a partir 
do endereco 7300H: 

7300 DBF4 IN A,(F4H) 

7302 210030 LD HL^OOOH 

7305 110073 LD DEJ300H 

7308 010F00 LD BC,000FH 

730A EDBO LDIR 

730C DBF4 IN A,(F4H) 

730E 210030 LD HL^OOOH 



7312 110074 LDDE.7400H 
7315 010F00 LD BC,0OOFH 
7318 EDBO LDIR 

Entre com os c6digos relacionados na 
segunda coluna e, ap6s entrar com o ul- 
timo codigo, tecle ENTER para retomar 
ao modo de comando do Monitor. Em 
seguida, execute o programa acima com 
o seguinte comando: 

J7300,731A(ENTER) 

Com este comando do Monitor, ini- 
cia-se a execucao no endereco 7300 e 
interrompe-se a execucao no endere90 
731 A, pois neste endereco foi coloca- 
do um breakpoint (veja adiante). Ao 
encontrar o breakpoint , o Monitor mos- 
tra no video o endereco 731 A envolvi- 
do por asteriscos: 

*731A* 

Entao, fazendo uso do comando 
DISPLAY (D) do Monitor, vamos veri- 
ficar o conteudo dos oito enderecos que 
se seguem a 7300 e 7400: 

D 7300,8 (ENTER) 

E observaremos no vi'deo os seguintes: 

22DF54210000ED73... 

Entre agora com o comando: 
D 7400,8 (ENTER) 

E teremos no video : 



do: 



C35E32C39B32C374... 

Novamente, tecle o seguinte coman- 

D 4300,8 (ENTER) 

Para exibir as primeiras instruco'es do 



Monitor: 

22DF54210000ED73... 

Note que devido ao chaveamento ini- 
tial, carregaram-se os primeiros oito by- 
tes do programa Monitor no endereco 
7300. Chaveando novamente, isto e\ re- 
tomando a condicao inicial, carrega-se 
parte do Interpretador no endereco 
7400H. Compare os resultados do co- 
mando D 4300,8 com os do D 7300,8, 
que acabamos de mostrar. 

Dissemos ainda, que se tentarmosin- 
terromper a execucao depois de chavea- 
da a EPROM para carregar o Monitor, o 
sistema en tr aria em loop infinito, haven- 
do necessidade de ressetar-se o computa- 
dor. Voce pode verificar isto da seguin- 
te forma; entre como seguinte comando 
e veja o que acontece: 

J 7300,7302 (ENTER) 

Este comando coloca um breakpoint 
em 7302, logo apos executar a instrucao 
IN A,(F4H) e antes de executar a pro- 
xima instrucao. 

Carregado o Monitor, a execucao 
prossegue a partir do endereco 47 A4, 



pois a instrucao seguinte assim o deter- 
mina: 

34A1 C3A447 JP 47A4H 

Note que os codigos rece'm-carrega- 
dos tambe'm con tern parte da rotina de 
inicializacao, bem como o Monitor resi- 
dente. Continuan do, temos: 

47 A4 DBF4 INA,(F4H) 

Com esta instrucao, chaveia-se a 
EPROM para a situacao normal, ja que 
o chaveamento anterior a tinha coloca- 
do no modo especial. 

47 A6 CDC901 CALL 01C9H 
47 A9 CD8D02 CALL 028DH 
47 AC C2CC47 JP NZ,47CCH 

A sub-rotina 01C9H e" documentada 
no manual como SVDCLS (pag. 51) e 
tern como funcao limpar a tela. A sub- 
rotina 028DH £ documentada como 
SKBBRK e tern como objetivo verificar 
se a tecla BREAK esta pressionada. 

O propdsito deste teste € o seguinte: 
se o sistema possui discos, a tendencia 6 
carregar o DOS 500 quando se resseta o 
micro ou quando o mesmo 6 ligado. En- 
tao, se ao ligarmos uma configuracao 
com discos pressionarmos a tecla 
BREAK, isto sera detectado pelas ins- 
trucoes localizadas em 47A9H e 47ACH 
e a execucao serd desviada para o ende- 
reco 47CCH, onde haverd a continuacdo 
da inicializacao ti'pica de um sistema 
sem discos. 

Se a tecla BREAK nao for pressiona- 
da, a execucao prossegue com: 



47 AF 

47B1 

47B2 



DBF0 

3C 

CACC47 



IN A, (FOH) 

INC A 

JP Z.47CCH 



A instrucao IN A,(F0H) retoma o va- 
lor 80H ou 00H se houver discos no sis- 
tema e FFH caso nao haja. Incremen- 
tando o Acumulador, ten'amos 81 H, 
01 H e 00H respectivamente. 

N3o existindo discos no sistema, a 
instrucao JP Z,47CCH desvia a execucdo 
para 47CCH, jd que o flag Z foi setado 
(Z=l) em funcao do resultado nulo da 
operacao INC A. 

Noutra oportunidade examinaremos 
a situacao com discos no sistema. Consi- 
deremos agora a inicializacao a partir do 
endereco 47CCH, que 6 a dos sistemas 
sem discos, ou com discos e a tecla 
BREAK pressionada. 

47CC 3E0D LD A,0DH 

47CE *0606 LDB,06H 

47D0 CD3300 CALL 0033H 

47D3 10FB DJNZ47D0H 

Este grupo de instrucoes move o cur- 
sor para a sexta linha, preparando a tela 
para a apresentacao do logotipo daPro- 
16gica. A sub-rotina 0033H, documen- 
tada como SVDCHAR no manual do 
CP-500, mostra no video o cardter con- 
tido no Acumulador. Esta operacao e 



repetida seis vezes por forca da instru- 
cao DJNZ 47D0H. Ela decrementa o 
registro B e enquanto o seu conteudo 
nao for zero, hd um desvio para 47D0H. 
Note que o conteudo do Acumulador 6 
o valor ASCII 0DH, ou 13 em decimal, 
que 6 o retomo do carro (CR). 
Continuando: 

47D5 1 12149 LD DE,4921H 

47D8 D5 PUSH DE 

47D9 21523C LD HL 3C52H 

47DC CD3449 CALL 4934H 

O endereco 4921 H eonte"m o valor 
ASCII dos simbolos grdficos da parte su- 
perior do logotipo. Se voce usar o co- 
mando D do Monitor da seguinte forma: 

D4921.7 (ENTER) 

senfo mostrados no vi'deo: 

4921 8F85 8F85 8F85 00 

O endereco 492 1H 4 armazenado na 
pilha (PUSH DE) porque os simbolos 
contidos ali serao novamente utilizados. 
3C52H € um endereco do video (lem- 
bre-se de que o video 6 mapeado na 
mem6ria), onde os simbolos serao visua- 
lizados. 

Uma vez inicializados os pares DE 
e HL, uma sub-rotina localizada em 
4934H 6 chamada para exibir os sim- 
bolos no video. O codigo desta sub-roti- 
na 6 o seguinte: 

LD A,(DE) 
OR A 
RETZ 
LD(HL),A 
INCHL 
INCDE 
493A C33449 JP 4934H 

O funcionamento 6 assim: inicial- 
mente o conteudo do endereco conti- 
do no par DE e transferido para o Acu- 
mulador. A instrucao OR A setara o 
flag Z (Z=l) do registro F se o conteudo 
do Acumulador for zero; se Z=l, retor- 
na-se da sub-rotina. Desta maneira, sina- 
liza-se o fim dos blocos grdficos com um 
byte OOH (veja que ele existe no con- 
junto de valores contidos a partir do en- 
dereco 4921H). Se o valor contido no 
Acumulador nao for zero, transfere-se o 
conteudo do Acumulador para a posicao 
indicada pelo par HL, que, como vimos, 
corresponde a uma posicao no video. 
Incrementa-se DE e HL (novo simbolo e 
nova posicao no video) e re pete -se o 

ciclo. 

47DF 21D23C LD HL, 3CD2H 
47E2 DI POPDE 

47E3 CD3449 CALL 4934H 

Este grupo de instruco'es repete o pri- 
meiro grupo de simbolos do logotipo 
em outra posicao do video. A instrucao 
POP DE recupera o valor 492 1H (que 
havia si do alterado pelas sucessivas ins- 
trucoes INC DE), habilitando a reapre- 



4934 


1A 


4935 


B7 


4936 


C8 


4937 


77 


4938 


23 


4939 


13 



sentacSo dos simbolos uma linha abaixo 
dos simbolos anteriores. Em seguida, 
temos: 



47E6 21923C 
47E9 112849 
47EC CD3449 



LD HL, 3C29H 
LD DE, 4928H 
CALL 4934H 



O endereco 4928H conte'm os valo- 
res ASCII da linha de simbolos que for- 
ma o nariz do logotipo. Use o Monitor 
para exibi-los no video, atrave"s do se- 
guinte comando: 

D 4928,7 (ENTER) 

4928 8F85 2020 8F8D 00 

pr6ximo grupo de instrucOes apre- 
senta a ultima linha do logotipo, o pes- 
coco: 

47EF 21 I23D LD HL3D12H 
47F2 I12F49 LD DE,492FH 
47F5 CD3449 CALL 4934H 

Use o comando D do Monitor para 
visualizar os valores ASCII dos ultimos 
simbolos: 



D492F,5 (ENTER) 
492F 8F85 8F85 



00 



Agora, com as instrucoes abaixo, 6 
apresentada a mensagem PROLOGICA 
CP-500, localizada no endereco 491 OH: 



47F8 21DB3C 
47FB 111049 

47FE CD3449 



LD HL3CDBH 
LD DE.4910H 
CALL 4934H 



Continuando , teremos : 

4801 213848 LD HL.4838H 
4804 CD1B02 CALL021BH 

A sub-rotina 021BH, documentada 
como SVDLINE, 6 utilizada para apre- 
sentar a mensagem BASIC (S ou N). 
Ela esta localizada no endereco 4838H 
e € precedida por 0EH (que liga o cursor 
na tela) e terminada por 03H, necessdria 
d sub-rotina SVDLINE (veja pag. 51 do 
Manual). Note tambe'm que esta sub- 
rotina usa a posicao do cursor armazena- 
da pelo sistema e esta posicao jd foi ajus- 
tada pelas instrucoes dos enderecos 
47CCH a 47D3H. 

Antes de continuarmos o processo 
de inicializacao, vamos usar o Monitor 
para executar a parte da inicializacao 
que apresenta o logotipo e a mensagem 
BASIC (S ou N). Primeiramente , vamos 
criar um meio de limpar a tela quando 
no Monitor. Com o comando S, modifi- 
que o conteudo do endereco 7500H e 
seguintes, para conter as duas instrucoes 
abaixo: 



7500 
7503 



CDC901 
CE431F 



CALL01C9H 
JP 431FH 



A sub-rotina 01C9H (SVDCLS) apa- 
ga a tela e em seguida retoma ao nivel 
de comando do Monitor (o endereco 
431FH e um ponto de reentrada conve- 
niente, ja que se reentrarmospor 4300H 
haverd o display da mensagem MONI- w 
TOR VERSAO 1.0 1982, que ndo nos & 
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interessa no momento). Tecle J 7500 
(ENTER) e o cursor estara locaiizado no 
canto superior esqucrdo da tela. Em se- 
guida, tecle o seguinte comando: 

J47CC (ENTER) 

E o logotipo e a pergunta initial apa- 
recem na tela! 

Continuemos. agora, a interpretar o 
restante do processo de inicializacao: 

4807 3E3F LD A,3FH 

4809 322340 LD (4023H),A 

O valor 3FH corresponde ao codigo 
ASCII do si'mbolo ?. O endereco 4023H 
pertence ao DCB do vi'deo. Ele define 
o cardter que sera - uhhzado como cursor 
(veja pag. 54 do Manual). Assim. apos 
estas duas instructs, o carater ? passa a 
ser utilizado como cursor. 

480C CD4900 CALL 0049H 

A sub-rotina 0049H (SKBWAIT, 

pag. 45 do Manual) realiza uma varredu- 
ra no teclado e retoma somente quando 
uma tecla for pressionada. com o valor 
hexadecimal ASCII da tecla apertada no 
A cu inula dor. 



480F 


FE53 


CPV 


4811 


CA1C48 


JPZ,481CH 


4814 


FE4E 


CPN' 


4816 


CA2448 


JP Z,4824H 


4819 


C30C48 


JP480CH 



O grupo de instructs acima proces- 
sa a resposta do usua'rio a pergunta 
BASIC (S ou N). Se a resposta for S, 
ha um dcsvio para o endereco 481 CH; 
se for N, o desvio e para 4824H. Se a 
resposta for diferente dessas duas, rea- 
liza-se nova varredura do teclado ate" que 
o usuario tecle uma das letras permiti- 
das. 

Como estamos mteressados no Moni- 
tor, vejamos o que acontece quando res- 
pondents N: 

4824 219048 LD HL,4890H 
4827 220442 LD (4204H),HL 

Estas duas instrugOes lnicializam o 
vetor da tecla BREAK (ver pag. 54 do 
Manual). Assim, quando a tecla BREAK 
for pressionada, havera um desvio para o 
endereco 4890H. Nele, temos as seguin- 
tes instructs: 



4890 


210043 


LD HL,4300H 


4893 


E5 


PUSH HL 


4894 


CDF801 


CALL01F8H 


4897 


C34C46 


JP 464CH 


E em 


464CH e n con t rare rnos o s 


464C 


3E0E 


LD A,0EH 


464E 


CDBD46 


CALL 46BDH 


4651 


3E0D 


LD A,0DH 


4653 


CDBD46 


CALL 46BDH 


4656 


C9 


RET 



Como voce deve se lembrar, a tecla 
BREAK e ativa no Monitor durante o 
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comando de carga de programas da fita. 

Se desejarmos abortar o comando 
de carga, nao basta interrompe-lo: 6 
preciso desligar tambdm o gravador. A 
rotina 01F8H contdm esta funcjio (na 
pag. 43 do Manual, ela esta documenta- 
dacomo SCSOFF). 

Como se retorna ao nivel de coman- 
do do Monitor? Simples, carregando-se 
o par HL com 4300H — que, como vere- 
mos, e* o entry-point (initio de execu- 
cao) do Monitor — e coloeando este va- 
lor na pilha (PUSH HL), ao executarmos 
uma instrucjlo RET, o valor contido na 
pilha e colocado no PC (program coun- 
ter, contador de programa) e efetiva- 
mente a execu^ffo reinicia-se em: 

4300H 
LD A,0EH 
CALL 46BDH 
LD A,0DH 
CALL 46BDH 

Este grupo faz simplesmente com 
que o cursor esteja ativo na tela e pro- 
voca uma mudamja de linha (retomo de 
carro. 0DH). A sub-rotina 46BDH, mui- 
to empregada no Monitor, pode ser vis- 
ta na figura 3. Ela utiliza a chamada 



46BD 


F5 


PUSH AF 


46BE 


C5 


PUSH BC 


46BF 


D5 


PUSH DE 


46C0 


E5 


PUSH HL 


46C1 


CD3300 


CALL 0033H 


46C4 


El 


POP HL 


46C5 


Dl 


POP DE 


46C6 


CI 


POP BC 


46C7 


Fl 


POP AF 


46C8 


C9 


RET 

- 



Figura 3 - Enderecos dos registros da pilha 
operacional. 

0033H (SVDCHAR) para mostrar no 
video o conteudo do Acumulador. Co- 
mo esta sub-rotina usa vanos registrado- 
res, eles sa"o armazenados na pilha (PUSH^ 
para serem recuperados depois (POP), 
ap6s o uso da SVDCHAR. 

Pfosseguindo com a inicialtzafa"o, te- 
mos: 

482A 3EB0 LD AJ0H 

482C 322340 LD (4023H),A 
412F C30043 JP4300H 

Novamente o card ter usa do como 
cursor e" modificado, desta vez para o 
simbolo grafico representado pelo valor 
ASCII hexadecimal BOH (um bloco gra- 
fico; ver pag. 157, valor decimal 176). 
Em seguida, desvia-se a execuca~o para o 
endereco 4300H, iniciando efetivamente 
a execucao do programa Monitor. 



A INICIALIZACAO DO MONITOR 

Como vimos em artigo anterior (ver 
Programas Monitores, MS numero 25), 
um monitor precisa de uma area de ar- 
mazenamento para os valores dos regis- 
tros do usuario. Relativamente ao Mo- 
nitor Residente do CP-500, este arma- 
zenamento e' feito por meio da pilha 
operacional (stack). Os enderecos estio 
na figura 4. 



Enderego 


Registros 


S4DF-54E0 


HL 


54E2-54E3 


AF 


54E4-54E5 


BC 


54E6-54E7 


DE 


54E8-54E9 


AF" 


54EA-54EB 


BC' 


54EC-54KD 


DE" 


54EE-54EF "> 


HL' 


54F0-54F1 


IX 


54F2-54F3 


1Y 


54F4-54F5 


PC 


54F6-54F7 


SP 


54E1 


I 



Figura 4 - Sub-rotina 46BDH 

Vejamos agora a inicializacao do Mo- 
nitor (a listagem completa esta na figu- 
ra 5): 



4300 


22DF54 


LD (54DFH),HL 


4303 


210000 


LD HL.OOOOH 


4306 


ED73F6S4 


LD {S4F6H).SP 


430A 


31D854 


LD SP.54D8H 


430D 


CDC946 


CALL 46C9H 


4310 


210043 


LD HL.4300H 


4313 


22D8S4 


LD (54DBK)HL 


4316 


CD4C46 


CALL 464CH 


4319 


21F548 


LD HL.48F5H 


431C 


CD4946 


CALL 4649H 


431F 


211F43 


LD HL.431FH 


4322 


E5 


PUSH HL 


4323 


3E3E 


LD A.3EH 


4325 


CDBD46 


CALL 46BDH 


4328 


CDB446 


CALL 46B4H 


432B 


FE44 


CP 'D' 


432D 


CA8643 


JP Z.43B6H 


4330 


FE47 


CP G 


4332 


CA3B44 


JP 2.443BH 


4335 


FE4A 


CP J 


4337 


CAF143 


JP 2.43F1H 


433A 


FE52 


CP 'r* 


433C 


CA4B44 


JP Z.444BH 


433F 


FES3 


CP S 


4341 


CA9745 


JP Z.4597H 


4344 


FE43 


CP C 


4346 


CA2D47 


JP Z.472DH 


4349 


FE54 


CP T 


434B 


CAFA46 


JP 2.46FAH 


434E 


CD4C46 


CALL 464CH 


4351 


3E3F 


LD A.3FH 


4353 


CDBD46 


CALL 46BDH 


4356 


C9 


RET 



4300 22DF54 LD (54DFH),HL 

4303 210000 LDHL,0O0OH 

4306 ED73F654 LD(54F6H), SP 

430A 31D854 LD SP,54D8H 

430D CDC946 CALL 4669H 

Inicialmente, armazena-se o valor 
contido no par de registros HL nos en- 
derecos 54DF/54E0H para futura utili- 
zacao. Em seguida, zera-se o par HL e 
armazena-se o valor atual do ponteiro 
da pilha operacional (Stack Pointer) 
nos enderecos 54F6/54F7H (veja na ta- 
bela de enderecos da figura 4 que estes 
enderecos correspondem, na area de ar- 
mazenamento do usuario, ao registro 
SP). Enta~o, ajusta-se o ponteiro da pi- 
lha para o endereco54D8H, que 6 a pi- 
lha operacional do Monitor. A sub-roti- 
na 46C9H, chamada logo em seguida, 



46C9 


31F6M 


LD SP.54F6H 


46CC 


E5 


PUSH HL 


46CD 


FDE5 


PUSH IY 


46CF 


DDE5 


PUSH IX 


46D1 


D9 


EXX 


46D2 


E5 


PUSH HL 


46D3 


DS 


PUSH DE 


46D4 


Cb 


PUSH BC 


46D5 


08 


EX AF,AF' 


46D6 


FS 


PUSH AF 


46D7 


D9 


EXX 


46D8 


08 


EX AF.AF 


46D9 


D5 


PUSH DE 


46DA 


C5 


PUSH BC 


46DB 


F5 


PUSH AF 


46DC 


EDS 7 


LD A,I 


46DE 


32E154 


LD (54E1H).A 


46E1 


97 


SUB A 


46E2 


08 


EX AF.AF 


46E3 


31D6S4 


LD SP.54D6H 


46E6 


C9 


RET 



Figura 5 - Inicializacao do Monitor 
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Figura 6 - Suh-rotina 46C9H. 

pode ser vista na figura 6. A funcao ba- 
sics desta sub-rotina 6 o armazenamento 
dos conteudos dos registros na area de 
armazenamento do usuario. Isto e feito 
por meio das instructs PUSH, que per- 
mitem o armazenamento na pilha. ( No- 
te m que a pilha e ajustada para 54F6H, 
que e o topo da area de armazenamento 
do usuario. Lembre-se de que a cada 
PUSH a pilha desce.) Como o Z80 pos- 
sui dois grupos de registros, as instru- 
cts EXX e EX AF,AF' permitem que 
ambos sejam preservados na area de ar- 
mazenamento. registro de interrup- 
gQes do Z80 tambem e armazenado. 

A instrucao SUB A (no final da sub- 
rotina 46C9H), simplesmente zera o 
Acumulador, ja que o subtrai de si mes- 
mo. Antes de retomar, a pilha operacio- 
nal e novamente ajustada, desta vez para 
54D6H, para que seja recuperado o en- 
dereco de retorno. Voce certamente sa- 
be que quando se realiza uma sub-roti- 
na, o endereco de retorno e automatica- 
mente armazenado na pilha, de modo 
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que quando a instrucao RET for execu- 
tada (coloeando. como sabemos. o valor 
imediato da pilha no contador de pro- 
grama, PC) a execucao possa continuar 
sem problemas. 

Note que temos duas pilhas operacio- 
nais: a do usuario (54F6H), onde sao 
armazenados os valores dos registros 
pertinentes ao mesnio, e a do Monitor 
(54D8H), neccssaria para seu perfeito 
funcionamento. 

Continuando, teremos: 



4310 


210043 


LDHL4300H 


4313 


22D854 


LD(54D8H) T HL 


4316 


CD4C46 


CALL 464CH 


4319 


21F548 


LD HL.48F5H 


43 1 C 


CD4946 


CALL 4649H 


48F5 


OD 


DEFBODH 


48F6 


4D 


DEFM MONITOR 
VERSAO 1.0 1982 


490E 


OD 


DEFB ODH 


490F 


00 


DEFB 00H 



Neste grupo de instrugOes armazena- 
se o valor 4300H nos enderegos 54D8/ 
54D9H, para postenor utihzacao. A sub- 
rotina 464CH apenas ativa o cursor (veja 
o efeito de valor OEH na pag. 159 do 
Manual) e for 9a uma mudan^a de linha. 
Veja a figura 7 para uma listagem desta 



464C 


3E0E 


LD A 


OEH 


464E 


CDBD46 


CALL 


46BDH 


4651 


3E0D 


LD A 


ODH 


4653 


CDBD46 


CALL 


46BDH 


4356 


C9 


RET 













Figura 7 - Suh-rotina 464CH. 

sub-rotina. Em seguida. carrega-se par 
HL com endereco da men sage m MO- 
NITOR VERSAO 1 .0 1982 e chama-se a 
sub-rotina 4649H para exibi-la no video. 
(Note que byte OOH indica fim da 
mensagem para esta sub-rotma.) Esta 
sub-rotina chama a de endereco 4657H, 
que por sua vez chama a 46BDH (listada 
na figura 3). Todas sao muito simples de 
ser entendidas. (Veja na figura 8 as llsta- 
gens correspondentes.) 



4649 


CD5746 


CALL 465 7H 


464C 


3EOE 


LD A, OEH 


464E 


CDBD46 


CALL 46BDH 


4651 


3E0D 


LD A, ODH 


4653 


CDBD46 


CALL 46BDH 


4356 


C9 


RET 


4657 


7E 


LD A,(HL) 


4658 


A7 


AND A 


4659 


ce 


RET Z 


46 5A 


CDBD46 


CALL 46BDH 


46SD 


S3 


INC HL 


465E 


C35746 


JP 4657H 



Figura 8 - Sub-rotinas 4649H e 465 7H 



tes: 



As proximas instructs s5o as seguin- 



431F 


211F43 


LDHL,431FH 


4322 


E5 


PUSH HL 


4323 


3E3E 


LDA.3EH 


4325 


CDBD46 


CALL 46BDH 


4328 


CDB446 


CALL 46B4H 



endereco 431FH e o ponto de re- 
entrada no loop de comandos. Este va- 
lor e coiocado na pilha para que o retor- 
no a este ponto de reentrada possa ser 
feito com uma simples instrucao RET, 
como veremos adiante. Carregando o 
Acumulador com 3EH, que nada mais e" 
que o simbolo > , e chamando a sub- 
rotina 46BDH, exibimos no video o si- 
aal que indica estado Monitor Ativo, 
isto e. que o Monitor esta pronto a re- 
ceber comandos. E a sub-rotina 46B4H 
e a encarregada de aguardar o comando 
do usuario. (Veja na figura 9 a listagem 
desta sub-rotma.) Ela utiliza as sub-roti- 



46B4 


?: c v 


PUSH. HL 


46B5 


DS 


PUSH DE 


46B6 


C5 


PUSH BC 


46B7 


CD4900 


CALL 0049H 


46BA 


CI 


POP BC 


46BB 


•M 


POP DE 


46BC 


El 


POP HL 


46BD 


FS 


PUSH AF 


46BE 


CS 


PUSH BC 


46BF 


D5 


PUSH DE 


46C0 


E5 


PUSH HL 


46C1 


CD3300 


CALL 0033H 


46C4 


El 


POP HL 


46C5 


Dl 


POP DE 


46C6 


CI 


POP BC 


46C7 


Fl 


POP AF 


46C8 


C9 


RET 



Figura 9 - Sub-rotina 46B4H. 

nas SKBWAIT e SVDCHAR para aguar- 
dar um carater do teclado e exibi-lo no 
vi'deo. 

Obtida a entrada do usuario (um dos 
comandos disponiveis do Monitor) as 
instrucQes a seguu - um grupo de ins- 
trucoes compare I desvie — processam a 
entrada do usua'rio: 



432B 


FE44 


CP'D' 


43 2D 


CA8643 


JP Z,4386H 


4330 


FE47 


CP*G' 


4332 


CA3B44 


JP Z,443BH 


4335 


FE4A 


CP J 1 


4337 


CAF143 


JPZ,43F1H 


433A 


FE52 


CP1T 


433C 


CA4B44 


JP Z,444BH 


433F 


FE53 


CP V 


4341 


CA9745 


JPZ4597H 


4344 


FE43 


CP'C 


4346 


CA2D47 


JPZ.472DH 


4349 


FE54 


CPT' 


434B 


CAFA46 


JPZ.46FAH 


434E 


CD4C46 


CALL 464CH 


4351 


3E3F 


LD A,3FH 


4353 


CDBD46 


CALL 46BDH „ 


4356 


C9 


RET m 
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A identificac^o do comando teclado 
pelo usuario e muito simples. Se a com- 
para^So e verdadeira, o flag Z e setado 
(Z=l) e hd desvio para o endereco cor- 
respondente. Sumarizando. temos: 

Comando Endereco de Execu^So 



J) 


4386H 


G 


443BH 


J 


43FIH 


R 


444BH 


s 


4597H 


c 


472DH 


T 


46FAH 



3494H, obtera as seguintes rnstruc:5es, 
entre outras : 

3494 DBF4 IN A,(F4H) 

3496 00 NOP 

3497 CD8D02 CALL 028DH 

Compare com os mesmos enderecos 
na figura 1 e voce notara que sao dife- 
rentes. Se examinar a partir do endereco 
4796H, encontrara: 



Se o comando solicitado pelo usuario 
nao 6 nenhum dos comandos do Moni- 
tor, chama-se a sub-rotina 464CH para 
mudar de linha e carrega-se o Acu inula - 
dor com o simbolo ? (hexadecimal 3F), 
que em seguida e exibido no video pela 
sub-rotina 46BDH, indicando que o 
Monitor nao entendeu o comando. Com 
a instrucao RET, retoma-se ao loop de 
comando, em 431FH. 

comentArios femais 

A rotina de micializa^fo mostrada na 
Figura 1 e comentada no texto e aquela 
realmente executada pela UCP durante 
o processo. Se voce usar urn programa 
disassemblador a partir do endereco 



4796 210030 

4799 110043 

479C 010008 

479F EDB0 



LD HL,3000H 
LD DE,4300H 
LD BC,0800H 
LDIR 



E outras instrucoes que n5o interes- 
sam no momento, A explica^So 4 a se- 
guinte: quando a instrucao IN A,(F4H) 
e executada, chaveia-se a EPROM cor- 
respondente a parte da memoria ROM 
compreendida entre os enderecos 
3000H e 37FFH, e urn novo conjunto 
de instructs fica disponivel nestes en- 
derecos. 

Note que as instrucoes localizadas a 
partir do endereco 4796H estavam lo- 
calizadas a partir do endereco 3496H da 
parte chaveada da EPROM. Pore"m, co- 
mo foram carregadas a partir do endere- 
co 4300H, elas agora se localizam a par- 
tir do endereco 4796H (a diferenca e 
BOOH). 



O fato mais importante € que apos o 
chaveamento s2o executadas as in st ru- 
pees localizadas entre 3496H e 34AIH 
e nestes enderecos estao os conteiidos 
oriundos da parte chaveada da EPROM, 
que diferem do conteudo da parte nor- 
mal da EPROM e que carregam o con- 
teudo da parte chaveada a partir do en- 
dereco 4300H, onde encontramos o Mo- 
nitor e parte da rotina de inicializaca'o. 

Desta forma, procuramos mostrar no 
desenrolar deste longo artigo, e de uma 
maneira bem simples, todo o processo 
de inicializacao do CP-500, ate que o 
Monitor esteja no modo ativo. 

Antecipo minhas escusas por qual- 
quer imprecisao te"cnica que tenha sido 
cometida em funcao da simplicidade 
com que foram abordados varios t6 pi- 
cos. Quaisquer comentarios serSo bem 
recebidos e podem ser enviados para a 
Caixa Postal 7 - CEP 38300, Ituiuta- 
ba, MG. 5 



Maun'do Baduy d engenheiro tletrdnico 
formado pela Escola Polite 1 cnica da USP, em 
1976. £ professor de Introduipcfo a Computa- 
pao na Faculdade de Engenharia de ttuiuta- 
ba, MG, at4m de ocupar o cargo de sdcio-ge- 
rente da firma mineira Sigma — Sistemas e 
Computadores Ltda. 



CONTABILIDADE 



QUE TAL TER BALANCETE DE SUA EMPRESA 
EMMEN0SDEUMAH0RA? 



A Nasajon Sistemas, uma empresa especializada no 
desenvolvimento de programas para 
microcomputadores dos tipos DGT 1000, CP 500, 
D 8002, TRS 80, NAJA, JR e outros, oferece no 
mercado urn sistema para Contabilidade com 
capacidade de: 

• 1000 lancamentos por mes. 

• 300 contas em cinco nCveis. 

• Historicos padronizados. 

• Emissao de diario, razao, balancete mensal 
e balanco geral. 

• Emissao de baiancetes de verificapao. 

• Extrato de contas e outros. 

Com esse software da Nasajon Sistemas voce vera 
como e facil obter o balancete de sua empresa em 
menos de uma hora. 

Consulte a Nasajon Sistemas. Ou sera" que sua 
empresa vai continuar correndo o risco de errar? 



^pno&sde^empresa. 



Temos tamtam software para as areas de faturamento, crediario, 
contas a pagar/receber, folha de pagamento, controle de estoque, mala 
direta e muitos outros. 



Programa 


Diskette (CrS) 


Controle de Estoque 


165.000,00 


Mala-Direta c/Ed. Texto 


210.000,00 


Contas pagar/receber 


125.000,00 


Tesouraria ( C/Saldo Bancario) 


125.000,00 


Crediario 


247.000,00 


Admin, de Imdveis 


455.000,00 



Voce encon tra esses e ou tros programas em nossos revendedores 
credenciados. 



CONTABILIDADE Ape 



nas CrS 250-000,00 



^nci/ojon 



Av. Rio Branco, 45 gr. 1311 

Tel.: {021) 263,1241 

cep 20090 - Rio de Janeiro. 




nao importa o tamanho de seu problema, 
no's temos a solucao na medida exata ! 




• LINGUAGEM BASIC 

• Id KDE MEMORIA 

• VELOCIDADE DE 
TRANSFERENCE 14VE- 

2ES MAIS RAPID A 



CP-300 




MODULAR 
LINGUAGEM BASIC 

48 K DE MEMORIA 
COMPATIVEL COM 
SOFTWARE DO CP-500 



CP-500 




• LINGUAGEM BASIC 

• 48 K DEMEMORIA 

• ATE 4 DRIVES 

• SAIDA PARALELA SE- 
RIAL 



P-500 



J A AT 
IVENDAff 




• VELOCIDADE 100 CPS 

• MATRIZ9x7 

• INTERFACE: 
PARALELA 
SERIAL 




S-600 




MICRO: 

• LINGUAGENS COBOL, 
BASIC E FORTRAN 

• 64 K DEMEMORIA 

• DUAS UNIDADES DE 
DISCO 



IMPRESSORA: 

• VELOCIDADE 130 CPS 

• MATRIZ7x9 

• 132COLUNAS 

• ORIGINAL +5 C6PIAS 



P-720 




• VELOCIDADE 200 CPS 

• MATRIZ7x9 

• INTERFACE: 
PARALELA, 
SERIAL 



TRAQADOR 
GRAFICO 




• 8PENAS 

• Area de tracado 

10 x 15 POL. 

• INTERFACE RS-232 




ACESSORIOS 

SOFTWARE • MESAS • DtS- 
QUETES • ARQUIVOS • 
FORMULARIOS CONTl"- 

NUOS • ESTABILIZADORES 
DE TENSAO • UNIDADES 
DE DISCO FLEXlVEL • ETC. 



APROVEITE! 

PROMOC0ES ESPECIAIS • 
FINANCIAMENTO • LEA- 
SING • CONSORCJO »CAR- 
TOES DE CREDJTO: CREDI- 
CARD, NACIONAL, ELLO. 




cres 



Fi teres Importacio e Representacoes Ltda. 
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Junte as ietras, forme as si'labas e componha uma palavra. Neste programa para 
a iinha TRS-80, um aprendizado para as criangas e um desafio para o$ adultos 
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Jogsuido 
com as oalavras 
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Heber Jorge da Siiva 



Soletrando 
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jogo":PRINT"e* CONTRA 



'rever est js instrucoes 







iPRIN 



10 REM ««-—«-----«-— 

20 REM ■» SOLETRANDO 

30 REM == POR HEBER J SILYA - BRASILIA - OF 

AO REM mmmmmmmmm^mmmmmmmmmmmmmmmmmmmmmmtmmmmmmmmmmmmmmmmmmmm 

50 CLEARIQOOSDIMNIO) ,PPS< 30,3) ,MT4< 14 , 14 ) 

55 REM »•* p/ auiienlsr Incident la lie de t tru I nada letra no banco, alters L% 

60 L5-"AAAAABCCDEEEEEEFGHIIIJKLMNN0000P(iRRSSSTTUliUUVXWYZ"iS4«CHRt('12> 

65 REM **• CL4 3 strintj para apagar 1 i st a de palavras do video 

70 CLi=""iC14=CHR5<32>+CHRi(24>+CHR*(26)iFORJ=lT015!CLS=CH+Cl*:NEXT 

80 CLS=CL*+CHR*<32> 

90 GOSUBVOO:GOT0210 

75 REM »»■ instrucoes 

100 CLS!PRINTa26,"it» S0LETRAN0O • »" :PR INT (PR INT" INSTRUCOES!" 

110 PRINT" objetivo deste jogo e' fnraar o na i or nuroero posstvel de" 

120 PR INT"pa 1 avras. Oe jogadores poderao cambinar que tipo de palavras «s" 

130 PRINT"t»rao valcndo. Por e::ei»iplo, nonet de frutas, peiKts, ti»es,etc." 

140 PRINT" Para forwar a palavra, o jogador devera' usar as SETAS pa-" 

150 PRINT"ra poaieiomr o cursor sobre a letra desejada e teclar RETURN." 

160 PR INT"8uandu U-rmuur a palavra, devera' Itclar E5PAC0 para que a pa-" 

170 PRINT"tavra entre na sua lista. Se errar urn a tetra, d jogador devera'" 

180 PRINT"poa ic lonar o cursor onde ocorreu o erro e teclar RETURN . ":PR INT" 

Jogador deve ser r ap I do ao formar a palavra pois 
0GI0> ..." 

190 PRINT"! Sempre que tetlar H, o jogador podera 
T"TECLE 8LJAL81JER TECLA PARA C0NTINUAR"[ 
200 IFINKEYS=""THEN200ELSERETURN 
205 REM »»» captando nuwero de jogadores 
210 CLS:INPUT"OUANTAS PESS0AS VA0 J0OAR <i-3) "|N 
215 REM »»• captando name dos jogadores e tempo de espera 
220 FORY=lT0N:PRINT"NDme do Jogador" t W t : INPUTNJCV ) (PRINT JNEXT IPRINT i INPUT"<iuant o 

tempo (em segundos) cada jogador tera' por jogada "jTlsRANDQM 
225 REM *** Formando o banco de tetras (natriz 15X15) 
230 F0RL=0T014iFORC=OT014 

240 MT*fL,C>=rtI0*.(LS,RND(LEN<H>) , DiNEXTC.L 
245 REM »•« imprimindo a banco de palavras no video 
250 CLS:FORC=OT014!PRINT:FORL=OT014!PRINTMT5<L,C) t Si|iNEXTL,C 
260 CI-CHRIC191) iDi=CHR«<140! :PC=64:HH=0«UV-0iP«l 
265 REM •»» rot ina principal 
270 F0Ry=lT0N 

280 PRIMTS0,N«('J)", e' a sua vez . . . " t • T2=INT i T 1« 1 .8 ) :G0SUB4 40:G0SUB* 1 Q:G0SUB2V0: 
PP5(P,V)»P«»P*=""-»NEXTtP=P*lSGOT0270 
285 REM *•» limit a acao horizontal do cursor 
290 IFv'V<OTHENvV = 0!PC=PC+64EL5EIFVV>i4THENgv-<.i4:PI>Pe-64 
Z'»j REM •»• I 1 1» 1 1 a acao vertical do cursor 
300 IFHH<0THENHH=0tPOPC+2ELSEIFHH>14THENHH=i4:PC-PC-2 
310 T%«INK£Yj!IFTS-""THENGOSU94S0iIFT2<OTHENPS=""»RETURN 
315 REM »»» seta para c i Ml 

320 IFTt=CHR»<?l>PftINTaPC,HT%<HH,VY> [ : VV=yy-HPC=PC-64 (G0T0290 
325 REM «■* seta para biii;o 

330 IFT»-CHR»(10)PRINT3PC,MTl(HH,'jy) ; s UV-W + l !PD=PC*64!GOT0290 
335 REM «•» seta *a esquerda 

340 IFTS=CHftl(8>PRINTaPC,MT4(HH^V) t iHH-HH-1 :PC=PC-2:GOT0290 
345 REM •»* seta "a direita 

350 IFT**CHR%C9>PRINT3PC,Mli<HH,VV) ; !HH=HH+ I IPC=PC+2SGOT0290 
355 REM »»« K au h , para instrucoes 

360 IFTi = CHRst72)0RT»-CHR4(lO4)THENG0SUBlD0lCLS:FORt;--0TQ14:PRINT:FORL-=0T014:PRIN 
rnTllL.C) fSS; :NEXTL,C5pRINTa0,Ni<y>",e' a sua vez ...";= PRINT3992, PS; :GOSUB410 
365 REM ••* corrige escolha de letra errada 

370 IFASCtMHi(HH,yW») >?MHENIFT* = CHR* ( 13) THENIFLEN< P\ > >0THENMTi< HH, UV) =R4:PR INT3 
PC,Ri;:P*=LEFT*<P*,LEN<Pt)-l ) !PRIN13992+LEN<PJ i , Si; IGOT0290ELSEPRINT3PC , C*; 8 
375 REM »•■ tecla return 

380 IFTt*CHRS(t3)Pt«=P»+MT4(HH,UV) tPRlNT8992.Pij 1R»"HT* (HH , YV) «MT» t HH. Wl=0t :Pfi IN 
T3PC,MT5«HH,UU) -1G0T0290 

385 REM »»« tecla espaco - so' vale palavra c/ 3 Ietras ou na i s 
390 IFT»=CHRS<32)ANDL*EN<PJ>>2RETURN 
400 G0T0290 

405 REM «•■ imprimc lista de palavras dos jogadores 
410 PRINT332,"»»* PALAVRAS 0E ";N%IV)," urn*", 

420 l = 9a:F0RP = lT015«IFPPKP,W)»""THE«HETURNELSEPRINTai,PP*(P,V>iiI*I + 64HFI)994T 
HEN430ELSENEXT1RETURN 

430 I-112:FORP>=16T030iIFPPt<P,V> = ""THENRETURNELSEPRINT3I,PP»CP,V). : I »I + 64 : IF I >10 
OSTHENRETURNELSENEXTiRETURN 
435 REM •*« apaga lista de palavras 
440 FORA=30T062:PRINTaA,CL*i (NEXTlRETURN 
445 REM *** pisca cursor 

450 FORT = lT020!PRINTaPC,C4; :PRINTSPC,MT*<HH,VV1 t INEXTIPRINT31016, USING"HttMtllt";T2 
r lT2=T2-l=RETURN 



executada no tempo estabelecido no 
ini'cio do programa (na base do video 
aparece um cronometro que vai faze n do 
a contagem regressiva). Se um jogador 
nao conseguirterminar a palavra antes 
de esgotado o tempo, esta sera anuiada e 
a vez sera da da ao proximo jogador. 
Portanto, na sua vez, tente ser rapido na 
decisao da palavra que quer formar e 
mais rapido ainda na localizacao das 
tetras que a comporao. 

CONSIDERA^OES 

Em bora o programa esteja to do 
comentado atraves das instrucoes REM, 
cabem aqui algumas considera^oes. 

que determina a incidencia das 
Ietras no banco e a string LS , na linha 
60. Para aumentar ou dimmuir a 
ocorrencia de determinada letra, e so 
alterar o valor desta string. 

Durante a execucao do programa, a 
qualquer momento, as instrucoes 
mostradas no ini'cio poderao ser revistas, 
bastando- apertar a tecla H. Enquanto 
isso, o contador de tempo ficara parado 
e assim, ao voltar das instrucoes, o 
programa reiniciara a execucao no 
ponto exato onde foi interrompida, na"o 
havendo prejui'zo para o jogador. 

Sempre que for dada a vez a um 
jogador, as palavras ja forma das por est e 
serao listadas no video, ao lado do 
banco de Ietras. programa esta 
orientado para nao aceitar palavras com 
menos de tres Ietras. porem fica por 
conta de cada adversano a aceita?a"o da 
validade das palavras formadas pelos 
outros. 

Para ganhar tempo de teclagem e 
execucao, as linhas com instrucoes REM 
nao devem ser digitadas. ■ 



Formado em AdministraQao de Ernpresas pela 

UDF, Heber Jorge da Siiva trabalha atualmen- 
te na Tetebrasi'lia, onde exerce atividades liga- 
das a programagao de microcomputadores. 



Desenvolvido para micros 
compati'veis com o TRS-80 
modelos 1 e III com 16 Kb 
de RAM, este programa 
proporciona um interessante 
passatempo, tanto para adultos quanto 
para criancas em idade escolar, uma vez 
que ajuda a aprimorar a habilidade de 
soletrar e reconhecer as palavras. 

COMO JOCAR 

Poderao participar do jogo de uma a 
tres pessoas. Logo apos mostrar as 
instrucoes, o programa perguntara 
quantos e quais os nomes dos jogadores. 
bem co mo o tempo que ele devera 



60 



esperar pelas respostas de cada um 
(este tempo e igual para todos). 

Apos as perguntas iniciais, aparecera 
no video um banco de Ietras escolhidas 
aleatoriarnente, do qual cada 
participante devera tirar.as Ietras 
necessarias a formacSo da palavra que 
desejar formar. O objetivo do jogo e 
formar o maior numero possi'vel de 
palavras usando as Ietras que restam no 
banco. 

Para tirar uma letra do banco, o 
jogador devera fazer uso das set as para 
posicionar o cursor piscante sobre a 
letra desejada e pressionar a tecla 
RETURN, e assim sucessivamente ate 
completer a palavra. Se porventura o 



jogador cometer um erro na retirada de 
uma letra, para corrigi-lo basta 
posicionar o cursor onde ela estava e 
digitar novamente RETURN : a letra 
sera reposta no banco e a palavra que 
estava sendo formada sera descontada 
desta letra. A correcSo, no entanto, so 
e' valida desde que o jogador nao tenha 
retirado outra letra apos ter cometido o 
erro. 

Uma vez pronta a palavra, o jogador 
devera pressionar ESPACO para que 
esta seja inserida na sua lista, fazendo 
com que o programa de a vez ao 
adversano. 

£ importante frisar que a operacao 
de formacao da palavra deve ser 
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OS AN JOS DA GUARDIAN 



Protepao integral para o seu Micro 



Estabilizador Eletrdnico 

mini 



Protecao ultra- raptda contra vanacoes 

da tensao da rede em ate » 22"!i 

" ■ estabihzando-aem + fo 

i, Capacidade de 

"^^^ 25.0-4.0.6.0 8 

e 1 KVA 



Gerador Eletronico 



ciaTTTiTri 



Quando a rede eieinca (altar GERATRON 

contmuara alimentando o seu micro conr 

houvesse acontecido 

Capacidade de 200 VA 

conlinuamente 

e 500 VA de pico 

Batena interna « 

com autonomia V 

de 90 mmutos 

aplenacarga 



MBlirW 



Linha Especial para Micros 

Protecao compieta para o seu micro 
mantendo a alimentacao altamenie 
estavefesem intefrupcao Forma de 
onda senoidal Capacidades de 25. 4. 
0.6. 1,15. 2.5, 3.5 e 5 KVA. Opera com 
quatro batenas comuns de 12 volts 

GUARDIAN M 

EQUIP. ELETRON. LTDA. 11(11 = 



R Dr Gamier 579 -CEP 2097) -RochaTelS PABX (021) 261-6456 ■ Direto 201-0195 'Telex n 1 ? (02 t)340t6- Rto de Janeiro - RJ 

Representanie Sao Paulo - Tel (01 1 > 270-3575 ■ Representantes em todas as capita>i 



Analise em graficos de tituiacao o comportamento de sistemas acido 
forte -base forte e vice- versa no seu HP -85 



Acidos e bases: 
analise em graficos 



Rodrigo Leygue-Alba 
Mauro Mandeili 



Oobjetivo basico deste artigo e fornecer aos 
interessados, especialmente aos da area de Quixnica 
Analitica, uma forma rapida e precisa de efetuar 
levantamentos das curvas de titulacffo por 
neutralizacao em metodos computaeionais. Alem dos motivos 
pedagogtcos demonstrativos que ensejam a utilizacao do 
programa, este servira tambem para foinecer subsi'dios a serem 
levados em consideragao, quando forem tornados os dados 
experimentais de tituiacao. 

Para urn qui'mico analitico, familiarizado com analise do 
comportamento de sistemas acido forte - base forte e. 
vice -versa, nao e dificil imaginar o tempo requerido para os 



levantamentos experimentais de curvas de tituiacao. 
Considerando tambem a necessidade de dispor de aparelhagem 
adequada (pH- metro, microbureta etc.), constata-se que o 
tempo dispendido para tais procedimentos e grande. Dai a 
importancia deste programa. 

SISTEMAS AODO- BASE 

comportamento de sistemas acido- base, conhecido 
tambem como volumetria de neutralizagao, e urn metodo de 
analise baseado na reacao entre ions (H30 + ) e ( OH - ), 
produzindo uma neutralizacao do componente titulado. 
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t'igura 2 




Fi&tra J 

Entao, se e efetuada uma reacao de um acido forte 
monoprptico com uma base forte, o nurnero de equivalentes 
do ion (H"5 vai sendo diminufdo por um mimero semelhante 
de equivalentes da base adicionada, seguindo a reacao: 



H + OH 







Esta neutralizagao finaliza num ponto onde o mimero de 
equivalentes do acido e exatamente igual ao nurnero de 
equivalentes da base. Este ponto e" conhecido como ponto de 
equivalencia e e me dido na escala de pH. 

Construindo-se os graficos da relagao entre o pH e o 
volume adicionado do titulante, e possfvel obter as chamadas 
curvas de tituiacao, as quais permitem localizar o ponto de 
equivalencia de um determinado sistema acido -base. 

nosso programa, escrito em linguagem BASIC, possibilita 
justamente levantar graficos de tituiacao de acido adicionado 
a base, ou mesmo base adicionada ao a"cido. £ importante 
ressaltar que os acidos e bases deverao ser do tipo forte, ou 
seja, ambos de total dissociacao. 

Pode ser observado na figura 1 que, em torno do ponto 
de equivalencia, existem diversas linhas retas com inclinacoes 
diferentes. Isto ocorre devido a diminuicao do poder de 
resolucao existente na mudanca de pH, a medida que o 
incremento de volume do titulante aumenta. Este 
comportamento e veriftcado tambem na pratica, onde o 
volume de incremento do titulante e reduzido ao se aproximar 
do ponto de equivalencia. 

Visto que, no programa proposto, o incremento de volume 
do titulante t uma constante no decorrer do levantamento da 
curva de tituiacao, sugere-se que, para altas resolucoes, os 
incrementos de volume sejam os men ores possiveis (figuras 
2 e 3). 

O programa preve uma possfvel superposicuo de graficos 
a fim de facilitar analises comparativas entre diversas curvas 
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SoftKpisfisn 

Revendedores Autorizados 
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Rio da Janeiro 

Setetronix 

Reouollca do Lfbarxi 25- A 

Rio ae Janeiro ■ RJ 

CEP 20061 

Gachel 

R Dr El'Jaick. 25 SS 
Mows Ftiburgo ■ RJ 
tet 22 4208 

VGC 

Av Brasll, 10 S/07 
Araruamo ■ Rj 
CEP: 26970 

EHIftfUVROS 

Av !So Branca 156 ■ terrec 

fto ae Janeiro ■ RJ 

M.C& 

Vise oe Pirajd. 303/217 
Wo d© Janeiro RJ 
:ei 267 8597 

Pemambuco 
EOIf6nlca isabele 
R PonoAiea/e 112 
Caruaru Pt 
CEP 55100 

Alagoas 

Expoente 

Av Siquena Campos. 836 

Macei6 ■ AL 

tel (062} 223 3979 

Sao Paulo 

tmaroi 

Av dos iTiaiei <i5 7 

Sao Paulo - SP 

fel 6' 4049 ■ 61 0946 

f? Boo Vista, 314 - 3° anaar 
Soo Paulo ■ SP 
tel 35 71318/32 
Memocards 

■ ■■- ,:■'-..■■■' -■ ' 
RiD&rao Preto SP 
1636 0586 



FOtOptlCQ 

Alameda JuruO. 434 
Soo Paulo -SP 
tel.; 421 .5211 

m 

I? F'ei Caneca, 7 
Santos SP 
tel 35 1792 

Computeftond 
Aj AngStca "996 
SaoPauoSP 
Ci? CH228 

Uvrarlo Polledro 

15 Aurora. 704 

Sao Paulo • SP 

tel 22*6764 

ftC Mlcfocomputoaorej 

Av Estados Uniaos. 933 

Plfacicaoo SP 

:ei 33 70*6 

Rio Grande do Sul 

Advancing 

R Anaradas, 1560 oaloiia 

Uateon ¥-B Porto Aleo/e ■ -7S 

tel 2H2A6 

J.H Santos 

Pea Otavio ("tocha 41 

Porto Aieate BS 

CEP 90CW 

India Center 

R- Ftofiano Peoato i<i2coni 

33(43 Santa Maria ■ fts 

tel {055)2217120 

Geremio Lido 

Av Julio a© Casttlhos. 1872 

Caxias ao Sul RS 

tel 22* 1299 



Av Julio de Costiihos. 3240 
Cokios ao Sui PS 
tei 221 3516 

Micromega 

S; Julio de Castllhoi 441 • 
1 "ondar Movo Hamburao i?S 
tot £0512]93472" 



Bah la 

Oficcino 

Sftopoino. Cento: itoigato 

ji40- 1°DiSO 

Salvador &A 

tel (0711246 6666 

Santa Catarina 
SupefTrUcfo Show 

R aos lineup 1Q ii 6 
Ftcianopoiis SC 
tel 22 8770 

Parana 

Computlque 
Av Sa'el 1750 
Cuntiba - PR 
tei 243*731 

Madison 

Av Wai DeodO'o. 311 

Curitida ■ PR 

tel 224 3422 

Minas Ge/ais 

Computiorm 
R Sergipe. 1422 
Sew HOfiionte MC 
tel [031)225 3305 

Eleirordaio 
R Aquiles LoOQ 441 A 
Be>c Honionte MG 
tel [0311222 8903 

Micro Pocot 
R Asm Figueireao 1072 
Pogos ae Calaas MG 
tel [035)721 1883 

B o w O b 

Av Ftofiano PetJtota 396 

uoe'Jdnaia MG 

tei 235 1413-235 7359 

6fasillO 

Digttec 

SC1N 302 ttA Ij 63 

flrasllia DF 

tel [061] 225 4534 



OSDfJvlOAMOS NOVOS REVEMDEDORES RARA TOCO O EKASTLi 
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unitron 

agora i 'falam ,, portugu§s 
com todos os acentos e 
caracteres especiais: 

aaaaeei666uug??§ 

Os com put adores tipo UNiTRON e impressoras vendidas 
na SACCO Computer Store, agora geram e imprimem textos 
com todos os sinais de acentuagSo e os caracteres especiais 
da lingua portuguesa, atraves de um dispositive* eletrontco de 
nome IVANITA. Portanto, eles ja "falam" e "escrevem" corre- 
tamente em portugues. 

Este dispositivo permrte a plena utilizagao de muitos progra- 
mas, em especial os "Processadores de Texto", e foi desen- 
volvido para profissionais, empresas e todos aqueles que ne- 
cessitam de textos precisos e corretamente escritos, tais co- 
mo: advogados, engenheiros, medicos, escritores, adminis- 
tradores, etc. 

Se o seu UNITRON, ainda nao tern IVANITA. consulte-nos. 
Ele vai sair da SACCO Computer Store falando e escrevendo 
em portugues com todos os acentos e cedilhas necessarios. 



"N 




VIS1TE NOSSO STAND NO 
MICRO-FESTIVAL 84 
PAROUE ANHEMBI 

Av Euzebio Matoso. 167 S Paulo 
Teis 814-0596 815-5367 
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ACIDOSE BASES: AN ALISE EM GRAFICOS 



c. - i - — 
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rmrc 

—i 1 



I 2 3 4 t] " * ~ '3 H ^ ? 9 



Figura 4 

(figura 4), possibilitando tambem o registro dos dados iniciais 
da titula^ao. 

volume do titulado nao tern um limite definido, porem 



o volume do titulantc esta limitado graficamente a um 
valor maximo de 100ml. Entretanto, o usuario podera aiterar 
estas variaveis para uma melhor utilizac,ao propria nos 
comandos For- Next corrcspondentes, incluindo o 
rcdimensionarnento grafico. 

As equacocs empregadas para desenvolver o programa foram 
equacoes de balanco de material, existindo uma troca de 
fatores quando o sistema atinge e passa do ponto de 
equivalencia. 

Final me nte, o proprio operador do programa achara 
aplicacoes diversas no vasto campo que representam as 
titulacoes de neutraliza^ao. 



N. M. Rodrigo Leygue-Alba 6 mestre em Qui mica Analt'tica peia 
UNICAMP e professor da Untversidade de Caxias do Su! - RS. £ tambem 
orientador de IniciacSo Cientifica pelo CNPq e Fapergs. 

Mauro Mandeili 6 aluno do curso de Engenharia Quimica na Universi- 
dade de Caxias do Sul e bolsista de iniciacao Cientifica do CNPq. 



O que um microcomputador pode fazer por um radioamador? 
Muito ma is do que imagina a nossa va fiiosofia. . . 



O micro no shack 
do radioamador 



Dirceu Pivatto da SHva 



Grdficos de Titulaqdo de Acidos e Bases 



CLEWR 3 DISP 0. 0T3P 9 GCLERR 

REM rtt 

REM <*•* ENTRflDR DE DADOS «* 

REN -** 

3tSP 'iJURL ri CONCENTRACAQ do 

ACIDO MONOPRDTIOG EH NOP 
NftL " 
INPUT HI 

CLEAR 6 DISP e DI8P 3 DISP * 
QUftL P CDNCENTPACAO DP ?ASE" 
iNPl.1T N2 

CLEAR 6 DISP 8 DISP "¥** DE- 
INft OPCftO ***" » DISP & DISP 

"ft t :tulacao E" 

DISP 'PRESS TONE 1 SE E BPiE 

NO AC IDG" 8 DISP 5 DISP "PRE 

SSI0HE £ SE E RCIDO Nft BftSE" 

BEEP 399.209 

INPUT K8 

ON KB GOTO 140. 186 

CuERP » DISP "OURl. G VOLUME 

IrUCIAL DE AC I 00" 

INPUT Ml 

("L.EAR fi DISP fi DISP "QUAL u 

VOLUME DE IMCRENENTO DA BAS 

E" 

INPUT U20 GOTO 256 

CLEAR 8 DISP & DISP "CURL 

VOLUME INICIftL DP BASE" 

INPUT <JZ 

f^EflP S DISP 9 DISP "QURL 0- 

VOLUME DE INCPEMENTD DO F.C1 

DO" 

INPUT VI 

REM t*'t 

REM **t REGISTRO DOS DADOS T 

NICIPTS *** 

REM *** 

CLEAR 9 DISP e DISP "OESEJfl 

IMPPIMIP OS VALOPES DE EHTRfl 

OR" 9 DISP 3 DISP b S-n'' 
2£* 1NPL' T Si 
2 7fl IF 'iS = "N" THEN 330 
-■3P PRINT "DftDOS lNICifllS * ft P» 

INT 
2=iO PR IN' "CH 1 3 = " Nl . "N" 
70fl PRINT -C0H1=",N2.. "N" 
310 PRIN T » vo i CN' 3 = " , VI ; ■'»! " 
72& PPIN - 'vol LCH1-" -V2 "»'i" 
336 IF K8>I THEN SSO 
340 PEf. **S 

356 REM **# CRLCUUO DE fH **X 
"'SO REM C*S 
37«i ft=0 ■* B=6 e C=0 a 01=6 6 H=6 

g K=6 6 Ui=6 6 Y*0 
336 P0*-:LG~<H1> 
399 FOR -' = t T 70 STEP W2 
46e F) = \/ltNi 
410 B=M*N? 



: 3 

4g 

50 






B6 
96 



.-? 



I 16 

12© 

130 

150 

166 



170 

180 



!?0 
288 



210 

230 
2*0 

• r 



430 IF R<=E THEN 560 
440 P»-LGT<C> 

*S8 GGSUB 1029 

470 MOVE 6.P0 

480 PLOT X.P 

430 NEXT X 

560 FOR 2=6 T 50 STEP W2 

510 w=K+r. 

526 Cl=uN2*M-Nl*Vl >/ CWl *-Hj 

521 IF Cl<*8 THEN 5S0 

522 H»-LGT<Ci ) 

536 V=14-H 

540 SCRLE -10, 160,-1, 14 

556 XflXIE 6 16,0. 100 

566 VRXIS 6.1,6.14 

576 PLOT i*: ■ 

556 NEXT Z 

590 BEEP 56- 158 

600 GOSUB 1250 

610 CLEriP 8 DISP 9 DISP "DE3F.JP 

NOVO ft JUSTE" & DISP & DISP " 

S'N" 
620 INPUT Mf 
630 IF ris="N" THEN 1350 
640 GOTO 96 
650 REM *** 

660 REM *** CPLCULO DO oH ttt 
676 REM *** 
6&0 R=6 2 l=0 - l = 9 K=6 9 C;=0 

8 W«6 6 '«=0 
696 P0=-LGT.N2> 
700 Pl«14-P8 

716 ^OR '' = TO 3C STEP VI 
720 R=N2*V2 

739 L=N1*X 

740 J=';R-L > '<V2+X> 
756 IF R<=L THEN 838 
766 P2=-LGT,J> 

770 0=14-P2 
789 K«X 

796 GOSUB 1020 
309 MOUE Pi 

319 PLOT X-0 

320 NEXT X 

336 FOR 7. = TO 50 STEP »l 

946 W=f+Z 

356 C1»?M1*W-H2*V2>/<I(I+W2J 

360 IF CI C«0 THEN 926 

370 H = -LGT^:C1 > 

880 SCALE -10, 160,-1 ■ 14 

896 XftXIS 6, 10,0 ■ 100 

90Pt VftXiS 1,6,14 

910 PLOT U.H 

920 NEXT Z 

930 BEEP 59, 150 

946 GOSUB 1259 

950 CLEftR « DTSP DI:-P "DESEJft 



NOVO ft JUSTE" & DISP DISP 

S'N" 

^66 INPUT P* 

978 IF PJ="N- TMEN 1358 

?S6 got: ;-•: 

999 RE'i ft 

1000 REM *** :CNSTRUCfiC DO 5RRF1 

CD J > 
'.610 REM %t* 

1026 SCPLE -10,160.-1 1- 
1070 ft iIS 6. !3, 6. 100 

«040 /ft::: ; 0-1,014 

1050 MOVE 3,13 5 

1066 LfiBEL "PH" 

1076 MOVE 32. 5 

10BO LRBEL 'vol ml 1 

1090 FOR Pl= .6 TO 14 

1100 MOME -16- Ml 

1110 Z=ML + 4 

1120 Vi = tJftLS-.Z) 

: I : i< _-^EE: ■ r 

U4f NEXT hi 

1156 FOP M2-3 TO 99 STEP 18 

I 160 MO'-'E M2 -1 

U70 0e«2+S 

1130 N* = i/PL*'.Q> 

! 190 LABEL W* 

1 299 NEXT M2 

1210 RE T UPN 

122 ,: ' RE" **J 

1230 REM ttt REGISTRO DO GFftPICO 

t t -. 
\j-i.^ REf I ; : 
1256 .JwERP 9 DIJP 9 DISP S 3IS" 3 

"DESFJfi imppimif gp^^:::' 

1260 0I3P 8 DISP "5 N ' 

-~Pi IHPI/T Ff 
1288 IF Pt = "H" THEN RET:.tF.H 
1298 GRRPN & PPIHT fi PPtNl 

1306 l'OP" 

1316 PETHRM 

1320 RE" ftt 

17 39 REM Ktx PlNftL DO PRGGRRHR * 

it 
17-10 P£l1 *Ji* 
1356 CLEAR 9 DISP 9 DIT^ 8 DISP 

"*xa RIM DO PROtESSRMENTy 1 

**" 
1760 DISP E DISP "txt PR0GRRHH00 

P !5)l' 

1370 DISP DISF "NftURO HANDELLi 

1338 DISP 8 DISP "* UNI'.'ERSIOADE 

DE CAVIfl' DO SUL" 
1336 DISP 8 DISP "Rt.ift FRANCISCO 

GEntuio yflRGRS •: •-■■ - cef»9 

5100 -R s ■ m 

1460 END M, 



Para o radioamador de algumas 
decadas atris, o ideal da cons- 
trugao caseira de seu proprio 
radio constituia-se num dos 
pontos maxim os de sua capacitacao tec- 
nica. Hoje, os novos equipamentos de 
rddio sao tSo sofisticados que nao e mais 
possivel atingir, com a construcao casei- 
ra, o mesmo patamar t^cnico oferecido 
pelos produtos industrializados. 

Em cada equipamento de radio Ian- 
cado no mercado podemos encontrar 
uma gama cada vez maior de caracte- 
risticas operacionais, obtidas a partir de 
modernos circuitos integrados. Alem 
disso - e este e" assunto principal deste 
artigo — , nfo hd como negar que o casa- 
mento da microcomputac^o com ra- 
dioamadorismo ja se realizou ha muito 
e seus la5os parecem ser do tipo a moda 
antiga: absolutamente indissoluveis. 

Quando falamos em radioamadoris- 
mo e microcomputa?^ na"o estamos 
querendo chamar sua aten^ao para a 
engenharia interna computadorizada de 
um transceiver (transmissor + receptor), 
mas sim para dois objetos distintos: um 
radio e um microcomputador que, com 
certeza, ja sa*o seus conhecidos. 

A partir deste ponto, mesmo que vo- 
ce nao seja radioamador e ainda nao sai- 
ba sequer operar um micro, sua curiosi- 
dade e interesse pelo tema poderfo estar 
desencadeando uma cascata de indaga- 
95es do tipo: 

• Pode-se junior um radio e um micro? 

• Que coisafs podem ser obtidas ope- 
rando-se os dois juntos? 

• Quern ajuda quern? radio serve 
ao micro ou o micro serve ao radio? 

• radio entende a linguagem do 
micro? 

• Tern gen te no Brasil operando rSdio 
atraves do micro? 

• Quern ja tern um micro tern vanta- 
ge ns entrando para radioamadorismo? 



• Quern ja 6 radioamador tern vanta- 
ge m em comprar um micro? 

• £ muito dificil para um radioama- 
dor padrao medio usar um micro em seu 
stwck (sala do radio)? 

Como vemos, e possivel formar um 
rosario de indaga^Qes e todas elas muito 
pertinentes... 

GRANDES POSSIBILIDADES 

A disseminac.ao dos microcomputa- 
dores atingiu muitas dreas da atividade 
humana e dentre elas o mundo das co- 
municacoes radioamadoristicas. Para 
aqueles que ja sSo radioamadores pode- 
mos dizer que micro pode prestar in- 
criveis servicos nos limite s de um sliack. 
Porexemplo: 

• administrar o arquivo dos QSO (con- 
tato entre duas estacoes); 

• editar cartSes QSL (contato confir- 
mado) via impressora; 

• fazer os logs (relatorios) dos contes- 
tes na hora em que estao se realizando, 
indicando at e" os com unic ados repetidos; 

• durante um QSO, contar tudo sobre 
todos os comunicados anteriores \i rea- 
lizados com aquele colega; 

• auxiliar, como o mais eficiente pro- 
fessor, sua aprendizagem de telegrafia 
(CW); 

• faciiitar seus estudos de radioeletri- 
cidade ; 

• calcular qualquer tipo de antena e 
indicar para onde voce deve apontar 
a sua nos comunicados que realiza; 

• calcular o rastreamento dos sateli- 
tes de comunica9a"o radioamador is tica; 

• fazer a predi^ao da propagacao ionos- 
ferica (MLIF = Maximum Usable Fre- 
quency) para suas tentativas de "DX" 
etc. 

Um micro razoavel faz tudo isso e 
muito mais: colocando-o no ar, atrav6s 
de uma interface e de seu radio, voce 
tera a grande ventura de conhecer o 



mundo maravilhoso do RTTY (radio - 
teletipo), Vejamos algumas dentre as va- 
rias coisas que voce podera fazer neste 
campo: 

• receber o sinal de Codigo Morse em 
sua forma audivel e transporti-lo para 
o video do micro com a mensagem de- 
codificada para sua forma escrita. O 
sentido in verso tambem 6 possivel, ou 
seja, voce pode teclar uma mensagem no 
computador e o radio colocar esta men- 
sagem no eter na forma tradicional do 
"DI-DA-DI-DA" da telegrafia; 

• a mesma opera^ao pode ser realizada 
utUizando-se o Codigo Baudot (0 mes- 
mo empregado pelo telex), e entSo es- 
taremos fazendo RTTY; 

• sentar-se em frente ao video e ver 
des filar as mesmas noticias que naquele 
exato momento as empresas jornalisti- 
cas e de broadcasting estao recebendo; 6 
possivel gravar estas noticias e reproduzi- 
las por escrito sempre que desejarmos; 

• ligar e desligar, de sua sala, radios e 
micros em qualquer parte do mundo. De 
sua casa voce faz consul tas na memoria 
de um micro situado em Toquio, por 
exemplo, podendo deixar (devidamente 
conferido) qualquer recado para seu 
proprietdrio se ele na*o estiver em casa 
no momento. 

Estas sSb apenas algumas possibilida- 
des. Varias outras existem, inclusive 
aquelas que voce podera criar um dia. 
De minha parte, tenho a convicc£b de 
que, antes de se esgotar a proxima deca- 
da, em toda estafao de radioamador exis- 
tirSo, lado a lado, um microfone e um 
microcomputador. 

Se voce entusiasmou-se com estas 
ideias, o que esta esperando?.. . m 



Dirceu Pivatto da SHva - PY3IT 4 radioama- 
dor ctasse A e consul tor da FundaqSo para o 
Desenvolvimento de Recursos Humanos **o 
RS. 
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Se caicular uma raiz quad r ad a nunca foi seu forte, aqui esta a sua chance 
de ap render: este programa fara de seu micro Sinclair urn paciente professor 



Raiz quadrada? 
O micro ensina 



Francesco Tropeano 



Este programa e uma verdadeira 
aula de matematica, ensinando, 
especificamente, urn met o do 
para caicular a raiz quadrada de 
um numero inteiro ou decimal, desde 
que nao seja negative Foi escrito 
para os micros compati'veis com o 
Sinclair, podendo ser operado tanto 
em SLOW quanto em FAST. 

Durante a execucao. o programa 
fornecera a teoria e as instrucoes 
necessarias para o calcuio da raiz 
quadrada. Um numero e sorteado e o 
calcuio e" feito passo a passo, ou seja, 
eada operacSo efetuada e mostrada no 
video acompanhada de um texto 
explicativo. O ritmo e o aluno quem 
escolhe, bastando acompanhar 
atentamente o processo e tentar depois 
fazer tudo sozinho para fixar o 
aprendizado. 

Os numeros sorteados variam de 3 a 
6 algarismos para os inteiros e 3 
algarismos para os decimals, cujas raizes 
sSo caJculadas com erro menor que 
0,001. 



Francesco Tropeano 4 formado em Matema'ti- 
ca peia FundaoSo Santo Andr4 e fez curso de 
COBOL. 







^ ^ — 




Raiz Quadrada 




5 PRINT 


62 GOSUB 442 


10 PRINT "'NESTE PROGRAMA VOCE 


65 CLS 


VAI AP RENDER" 


70 GOSUB 200 


15 PRINT 


73 GOSUB 400 


20 PRINT "A CALCULAR RAIZ QUAD 


74 CLS 


RADA DE NU-" ' 


76 GOTO 130 


22 PRINT 


80 PRINT "A RAIZ QUADRADA DE U 


23 PRINT "MEROS INTEIROS E DEC 


M NUMERO DE-CIMAL TEM A METADE D 


IMAIS" 


AS CASAS DE-CIMAIS DO RADICANDO. 


25 GOSUB 400 


t t t 


26 CLS 


82 PRINT "PARA NUMEROS QUE NAO 


27 PRINT 


TEM RAIZESEXATAS (RESTO DIFERE 


28 PRINT "DADO UM NUMERO B QUA 


NTE DE ZEROlNOS PODEMOS TER MAI 


LQUER, CHA-MA-SE C RAIZ QUADRAD 


OR APROXIMA-CAO TENDO TANTAS CA 


A DE B QUAN-DO C ELEVADO AO QUAD 


SAS DECIMAISQUANTO DESEJARMOS" , , 


RADO E IGUALA B." 


, "NESTE CASO BASTA ACRESCENTAR 


30 PRINT 


AONUMERO O DOBRO DAS CASAS DESEJ 


31 PRINT 


A-DAS . " 


32 PRINT "NO CAMPO DOS REAI 


83 GOSUB 442 


S NAO EXISTERAIZ QUADRADA DE NUM 


84 LET N$="" 


EROS NEGATI-VOS." 


86 FOR 1=1 TO 3 


33 PRINT 


88 LET N$=STR$ INT ((RND*9)+1) 


35 PRINT "PARA O CALCULO DA RA 


+N$ 


IZ QUADRADASEGUIREMOS UMA SEQUE 


89 NEXT I 


NCIA DE PAS -SOS." 


90 LET I=LEN N$ 


37 GOSUB 400 


93 LET N$=N${l)+"."+N${2 TO 3) 


38 CLS 


95 GOSUB 400 


40 GOTO 137 


97 CLS 


52 LET N$ = "" 


9 9 PRINT "RAIZ QUADRADA DO NUM 


54 LET I=INT (RND*4)+1 


ERO: ";N$ 


56 FOR 1=1 TO 6 


100 PRINT 


57 LET N$=STR$ INT ((RND*9)+1) 


102 PRINT "COM ERRO MENOR QUE 


+N$ 


.001" 


58 NEXT I 


10 3 PRINT 




60 LET I=LEN N$ 


105 PRINT "CONFORMS A REGRA NE 
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STE CASO DE-VEMOS ACRESCENTAR QU 
ATRO ZEROS" 

107 LET N$=N$+"0000" 

108 LET 1=7 

110 PRINT "NUMERO DO RADICANDO= 

";N$ 

120 GOSUB 400 

122 CLS 

123 LET N$=N$(1)+N$(3 TO 8) 

124 GOSUB 200 

126 LET J$=J$<l)+"."+J$(2 TO ) 

127 LET N$=N$(2)+"."+N$(3 TO 4) 

128 CLS 

130 PRINT "RAIZ QUADRADA DO NUM 
ERO: ";N$,,"=";J$ 

131 PRINT 

135 PRINT "INICIE O PROGRAMA. TE 
NTE RE SOLVE RO EXERCICIO SOZINHO, 
SE TIVER DU-VIDAS DE CONTINUIDA 
DE ATE T IRA-LAS." 

136 PRINT 

137 PRINT "DIGITE:", , "1 - PARA 
INTEIROS", "2 - PARA DECIMAIS","3 

- INICIO DO PROGRAMA" 

138 INPUT A$ 

139 CLS 

142 IF A$="3" THEN RUN 

143 IF A$="2" THEN RUN 80 

144 RUN 50 

200 REM "RADICANDO" 
2 05 PRINT "RAIZ QUADRADA DO NUM 
ERO: ";N$ 

210 print at 3,4 ; n [maa^ 
as" 

215 PRINT AT 4,1; "JE3S" ;AT 4,19 
;"C";AT 5, 1; "HZ3" ;AT 5,19;"1HW 
!";AT 6,1; "CH" 



218 FOR N=6 TO 15 
220 PRINT AT N,19;"C 
222 NEXT N 

224 PRINT AT 4,6;N$;AT 4,20; "RA 
IZ" 
226 GOSUB 4 00 

240 LET R=I-INT (1/2) *2 

241 PRINT AT 17 , ; "-DIVIDIR OS 
ALGARISMOS DO NUMERO EM PARES DA 

DIREITA P/ESQUERDA" 

242 IF R=0 THEN GOTO 2 48 
244 LET N$="0"+N$ 

246 LET 1=1+1 

24 8 LET M$=N$( TO 2)+"."+N$<3 T 
O 4) 
250 IF 1=4 THEN GOTO 258 
252 LET M$=M$+" . "+NI {5 TO 6) 
254 IF 1=6 THEN GOTO 258 
256 LET M$=M$+" . "+N$ (7 TO 8) 
258 PRINT AT 4,6;M$ 
260 GOSUB 400 

265 PRINT AT 17 , ; "-SUBTRAIR DO 
PRIME I RO PAR O MAI- OR QUADRADO 
PERFEITO POSSIVEL." 

266 FOR J=l TO 9 

268 LET S=VAL N$ ( TO 2) -J*J 

270 IF S=0 OR (VAL N$ { TO 2) -{J 
+1)*(J+1))<0 THEN GOTO 274 

272 NEXT J 

274 LET M$="-"+STR$ (J*J) 

276 PRINT AT B,5;M$;AT B+1,6;S 

280 GOSUB 400 

282 PRINT AT 17,0; "-RAIZ DESSE 
QUADRADO PERFEITO COLOCA-SE N 
O LOCAL DESTINADO A RAIZ E O DO 
BRO COLOCA-SE ABAIXO" 

284 LET R$=STR$ J 

285 PRINT AT 4,20;" " ;AT 4,2 
0;R$ 

290 PRINT AT 6,20; (J*2) 

292 GOSUB 400 

293 PRINT AT 17 , ; "-ABAIXA-SE O 
PAR SE GUI NTE FOR- MANDO COM O 

RESTO ANTERIOR UM NOVO NUMERO 

295 LET X=X+2 

296 LET Y=Y+2 



297 LET M$=STRS S+N$ (Y TO X) 

300 PRINT AT B+1,6;M$ 

305 LET W=LEN M$ 

310 GOSUB 400 

312 PRINT AT 17 , ; "-SEPARA-SE O 

ULTIMO ALGARISMO DA DIREITA DO 
NOVO NUMERO COM UMA VIRGULA E D 
IVIDE-SE QUE FICOU A ESQUERDA 
PELO DOBRO DA RAIZ." 

315 LET X$=M${ TO W-l) +" , "+M? { W 
) 

320 PRINT AT B+1,6;X? 

322 LET N=INT (VAL M$ ( TO W-l}/ 
<J*2>) 

324 GOSUB 400 

325 LET K=J 

32 6 PRINT AT 17,0; "-0 QUOCIENT 
E APROXIMADO COLOCA- SE A DIREI1 
A DA RAIZ E A DIREI- TA DO DOBRC 

DA RAIZ. 

330 LET J$=STR$ J+STR$ N 

333 PRINT AT 4,20;J$ 

335 LET L$=STR$ (J*2)+STR$ N 

336 LET J=VAL J$ 

338 PRINT AT C,20;L$ 

339 IF N=0 THEN GOTO 472 

340 GOSUB 400 

34 2 PRINT AT 17,0; "-ESTE MESMO 
QUOCIENTE MULTIPLI- CA-SE PELO 
NUMERO ";L$;" 

344 LET L=VAL L$*N 
346 PRINT AT C, 20 ;L$ ; "X" ; N; "=" ; 
L 
34 8 LET S=VAL M$-L 

349 IF S<0 THEN GOTO 4 50 

350 GOSUB 400 

352 PRINT AT 17,0; "-0 PRODUTO E 
NCONTRADO SUBTRAI-SE DO NUMERO 
FORMADO PELO ULTIMO PAR ABAIXAD 
O: ";M$ 

354 LET B=B+2 

356 PRINT AT B,5;"-";L 

358 PRINT AT B+1,6;S 

360 GOSUB 400 

370 IF I=X THEN RETURN 

372 LET C=C+1 

374 PRINT AT C,20;(J*2) 

376 GOTO 293 

40 PRINT AT 21,4; "DIGITE A PAR 
A CONTINUAR" 

410 INPUT A$ 

420 IF A$<>"A" THEN GOTO 400 

4 30 PRINT AT 21,4 ; " 

440 RETURN 

4 42 LET X=2 

4 43 LET Y=l 

445 LET B=5 

447 LET C=6 

44 9 RETURN 

450 GOSUB 400 

452 PRINT AT 17,0;"-ESSE QUOCIE 
NTE NAO SERVE. DEVE- SE SUBTRAIR 

1 E VOLTAR A MULT I- PLICAR NOVA 
MENTE. 

455 PAUSE 240 

458 LET J$=STR$ K 

460 LET J=VAL J$ 

463 LET N=N-1 

464 PRINT AT 4,20;" ";AT C 
,20;" 

470 GOTO 326 

4 72 IF X=I THEN RETURN 

473 LET S=S+VAL N$ (Y TO X) 

476 PRINT AT 17,0;"-COMO NAO DA 
PARA DIVIDIR ACEI- TAMOS O ZER 

O E BAIXAMOS OUTRO PAR- 

477 GOSUB 400 
4 80 GOTO 293 

485 SAVE "RAIZ2" 

486 RUN B 
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Av. do Contomo, 5826 /3°. andar 

— Savassi — Belo Hori2orrte — 

PABX (031) — 223-6000 




2748845 



IVOCE TEM UM MICRO?| 
NOS TEMOS 

yUprimcnto 



DISKETTE S 1/4" E 8" 

FORMULARIO CONTlNUO 

FTTA IMPRESSORA 
FTTA K-7 CURTA DURACAO 

ETIQUETAS ADESIVAS 

PASTA P/FORMULARIOS 

80 E 132 COL. | 

ARQUIVOS EM ACRlLICO, c 
RACKS E PASTAS 
PARA DISKETTES. 

REBOBINAMOS QUALQUER FITA 

PRONTA ENTREGA 

QUALQUER QUANTIDADE 

GARANTIA E QUAL10ADE 



ybprimtnto 

HUA V1SCONDE DE PIHAJA. 5SO - LOJA 202 

10211 274-884S (021 1 246-»180 SIP 36XB 
IPANEMA RIO (0111 815-3344 BIP587A 




VENDO 



compro 



EQUIPAMENTOS 



• Tenho um TK 82 e uma fita 
com do is jogos e gostaria de ne- 
gocia-los com um CP-200 e ainda 
dou uma compensacao em dinhei- 
ro. Desejo tambem entrar em con- 
tato com pessoas que possuam o 
micro TK 82. Tratar com Marcelo 
T-homaz, Rua Bauru, 330, V. Lin- 
da - Santo Andre, Sao Paulo, 
CEP 09000, tel.: 412-1972. 

• Vendo: 4 displays LCD para 
relogio; 1 LCD para calculadora; 
um microprocessador Z-80; um CI 
de 40 pinos com referenda uasei- 
ra = 81 13;esquemado DGT-100, 
catalogos da maioria dos compu- 
tadores brasileiros alem de calcu- 
ladora s; uma calculadora Dismac 
musical, xerox do manual do 
28000; revistas Nova Eletronica 
diversas; revistas de eletronica de 
1954 em diante. Compro expan- 
sao de 16 K para Z8000 ou TK 
82, nao importando o estado ex- 
terno. apenas o interno. Tratar 
com Dante Eickhoff Caixa Pos- 
tal 68, Tres de Maio, Rio Grande 
doSul - CEP 38910. 



• TRS-80 Pocket Computer 
(Sharp PC 1211). Vendo conjun- 
to com impressora ou somente 
impressora. Pierre, tel.: (011) 
257-6236. 

• Comodore 64/Vic 20. Vendo 
interface para cassete. Tratar com 
Gustavo, forte (01 1 ) 460-3208 - 
Sao Paulo - SP, 

• Vendo NE-Z8000 com expan- 
sao de 16 K, pouco tempo de uso, 
Cr$ 100 mil. Tratar com Abelar- 
do; SON 408 Bloco N apto. 302, 
Brasilia. Tels.: (061) 272-0395 - 
234-1331. 

• Vendo cartucho de ATARI 
400/800, modelo CXL4002, nome 

BASIC COMPUTING LANGUA- 
GE, juntamente com o seu ma- 
nual de utilizacao. E vendo um 
atarme computadorizado para ca- 
sa. O preco do cartucho e Cr$ 
80.000,00 e do alarme Cr$ 
60.000,00. Os dots produtos sao 
importados e estao sendo vendi- 
rios a preco de custo. Falar com 
CSaudio Coelho Lima, Avenida Se- 
te. 2901. apt. 1701, tel.: (071) 
247-7181, Salvador, Bahia. 



GARANTA 

SUA MS 

TODOAAES! 



Se voce deseja assinar MICRO SISTEMAS, preencha o 
cupom abaixo (ou uma xerox, caso voce nao queira 
cortar a revista): 



empresa. 



profissao/cargo. 



endereco para remessa 

cidade cep. 



. estado. 



Assinatura anual 

D Micro Sistemas CrS 15.000,00 

□ Informatica & Administracao CrS 20.000,00 

□ Micro Sistemas+ 1 nf ormat ica & Administracao CrS 31.000,00 



Preencha um cheque nominal a ATI Editors Ltda e envie 

para: 

Rua Visconde Silva, 25 - Rio de Janeiro — RJ — CEP 

22281 - tel. (021 1286 1 797. 246-3839 e 266-0339. 

Al. Gabriel Monteiro da Silva, 1227 - Sao Paulo - SP - 

CEP 01441 - tel : (01 1 ) 853-3800. 

Seu recibo sera enviado pelo correio. 



• Vendo TK82-C com 16 Kby- 
tes, chave inversora de video e 
mais 20 jogos, tudo por CrS 150. 
000,00. Tratar com Luiz Carlos 
Fernandes, Rua Atos Damasceno, 
310, CEP 04372, Sao Paulo, SP. 

• Compramos microcomputado- 
res Apple, com ou sem impresso- 
ra. Interessados favor contactar 
com E COP LAN, Rua Felicissimo 
de Azevedo, 924, Porto Alegre - 
RS, CEP 90.000, tel.: (0512) 42- 
4821. 

• Troco um Tig- Loader com 
pouquissimo uso por um joystick 
para TK82-C. Tratar com F^bio 
Almeida Barbosa, tel.: (011) 570- 
2078. 

• Vendo JR Sysdata. seminovo, 
48 Kbytes, Extended Basic, por 
CrS 600.000,00 e um vt'deo, 
(TV Philco 12polegadas) por CrS 
100.000,00. Tratar com Clbvis pe- 
lo tel.: (011) 440-9688, Santo 
Andre, SP. 

• Compro um CP-200 ou um 
RINGO sem expansao, de prefe- 
rencia ainda na garantia, pelo 
preco de CrS 100.000,00 de en- 
trada e seis prestacoes de Cr$ 
40.000,00 ja usado, e se ainda es- 
tiver na caixa fechada, alem de 
cem mil dou sete prestacoes de 
quarenta mil e nota fiscal. Tratar 
com Henio T. Barros, Rua Silvio 
Romero, 340, Petropolis, Carua- 
ru, PE, CEP 55100. 

• Compro um CP-200, sem ex- 
pansao, na garantia, com entrada 
de CrS 1.000.000,00 e o resto 
parcelado em pagamentos de ate 
Cr$ 30.000,00. Escreva para He- 
nio Teixeira de Barros. Rua Si'lvio 
de Barros, 340-B, Petrdpolis, Ca- 
ruaru. PE, CEP 55100. Obs.: as 
lojas tambem poderao entrar em 
contato comigo. 

SOFTWARE 

• Vendo software para HP-41C, 
estrUturas e analise matricial para 
porticos, vtgas conti'nuas de ate 7 
nos. Entrar em contato com An 
tonio Vieira Ribeiro, Caixa Postal 
435. CEP 07000, tel. (011) 209- 
7784, Sao Paulo. 

~ DI VERSOS 

• Gostaria de comprar MICRO 
SISTEMAS do numero dois ao 
nove, desde que em bom estado. 
Tratar com Jefferson da Silva Ju- 
nior, Rua da Palma, 575, apto. 
203, Sao Jose, Recife, PE, CEP 
50.000. 

• Gostaria de comprar a MICRO 
SISTEMAS n? 23 pelo preco 
atual e vender o livro "Introdu- 
pao a linguagem BASIC", de Ro- 
berto Kresch, por CrS '4 mil 500. 
Tratar com M. A. da Motta Mo- 
raes, Rua Umanapia n° 45, Bra's 
de Pina, CEP 21011, Rio de Ja- 
neiro. 



• Traducao de literatura tecnica 
de microcomputadores e perife- 
ricos: manuals de instrucao de 
equipamentos e de programas, 
guias de usuario, etc. Tenho tra- 
ducoes prontas de literatura da 
Commodore. Wilson, tel.: 222- 
0902 - RJ. 

• Estou muito interessado em 

programas que digam respeito ao 
radioamadorismo e que sejam 
compat iveis com o D-8001 . Posso 
fornecer alguns programas das re- 
vistas "73 MAGAZINE" e "QST". 
Meu prefixo e PP5-VH e opero 
nas seguintes bandas: 80m, 40m, 
20m, 15m, 10m, 6m, 2m e 70cm. 
Meu nome e Valdemar Hennings 
PP5-VH - Caixa Postal 8 - CEP 
89120 -Timbo - SC. 

• Compro livro Ingles/Frances/ 
Portugues de programas de jogos 
para o TK82-C (16 KB). Tratar 
com Joao Aluisio Zambano Gar- 
gantini no seguinte endereco: 
Rua Baia, 551 - Vila Marcondes 
- CEP 19.100 - Presidente Pru- 
dente - SP. 

CLUBES 

• O TK CLUBE DE NATAL es- 
ta abrindo os seus arquivos para 
preenche-los com os dados dos 
usuarios de microcomputadores 
da linha Sinclair (TK82-C, CP-200. 
etc.). Se voce possui microcom- 
putadores e deseja intercambiar 
informacoes e programas, escreva 
para o nosso Clube. Rua Praia de 
Camboinhas, 9115, Ponta Negra, 
Natal, RN, CEP 59000. 

• Desejo entrar em contato com 
Clubes e pessoas que possuam mi 
crocomputadores pessoais. Entrar 
em contato com Joao Gurmelho. 
Caixa Postal 431, CEP 80,000. 
Curitiba, Parana. 

• Tenho um CP-200 e gostaria 
de contactar possuidores de TK 
85 e compat iveis. M. A. da Mot- 
ta Moraes, Rua Umanapia n° 45, 
Bras de Pina, CEP 21011, Rio de 
Janeiro. 

• Estamos fundando o Micro 
Clube do Brasil e nos preparando 
para o lancamento do primeiro 
numero de seu Boletim Trimestra) 
"Brasil Informatico". A assinatura 
e gratuita basta nos escrever. Rua 
Dep. Jose Tavares, 236 - CEP 
58100, Camptna Grande - PB. 
Enviar correspondencia aos cuida- 
dos de Joao Tome de Araujo Fi- 
Iho. 

• Gostaria de entrar em conta- 
to com pessoas que possuam com- 
putadores da linha Sinclair para 
troca de programas, prtncipalmen- 
te jogos e aplicativos. Tratar com 
Fernando pelo tel.. (011) 543- 
4787 ou escreva para Antonio 
Fernando Cabral, Alameda dos 
Anapurus, 746/apto 21. Sao Pau- 
lo, CEP 04087. 
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MS 
N9 


NA PAGINA 


ONDE SE LE 


LEIA-SE 


28 


19, do Ciclotron: 
Supere Esta Barra!, 

na linha 70 


70 PRINT@0,"JOG. 1 :" ;J1 : 
PRINT@25 H CICLO: " ;G: 
PRINT,@52,"JOG.2:" ;J2: 


70 PRINT@0,"JOG. 1 :" ;J1 : 
PRINT@25, ^ CICLO: ,, ;G: 
PRINT@52,"JOG.2:";J2; 


28 


23, na Secao Con- 
versao : Programe 
em Segredo no 
Apple, linha 270 

Na linha 280 
Na linha 290 


27 DATA A,K,B,M,C,L,D,N 
r E f Z,F,I,G,M 

280 DATA H,B,I,A,J,D,K 
,B,L,E,M,C,N,F,0,B,P,Q,Q 
r O,R,P 

290 DATA S,U,T,X,U,T,V,V 

X,S,Z,J," ,, ,W ( ".% , '-<\": 
ii M ii it ii >i . ■■ 

r > t r ' 


270 DATA A,K,B,M,C,L,D,N 
f'EfZfCfi. t G r H 

280 DATA H,G,I,A,J,D 
,K,B,L f E ( M,C,N,F,0,R,P,Q 
rQrO,R,P 

290 DATA S,U,T,X,U,T,V,V 

r X,S r 2,J f " " ,W,".", ,, < n ," : 
n ii > »i ii n u . M 
/ t t 


____ 
28 


50. do Apple 
Paddle: Fa$a Voce 
Mesmo, ultimo pa- 
ragrafo da 2? colu- 
na, na observagao 


qualquer potenciometro de 1 kohms 


qualquer potenciometro a partir de 1 
Kohms 


28 


54, do Penosa Tra- 
vessia, linha 17 

Na linha 34 
Na linha 48 


17 PRINT" " ;CHR$ M;" 
* ii 

34 PRINT AT A,B; H $" ; AT 
A,B;" " 

48 GOSUB 28 


17 PRINT" ";CHR$ M; " 

3 4 PRINT AT A , B ; " $ *' ; AT 
A,B;" "; 

48 GOSUB 29 


28 


71, de UmTeclado 
A Moda da Casa, fi- 
gura 2, programa 
Cohca, linha 190 

71,2? coluna, item 
4 


190 PRINT CHR$ (4);"BSAV 
E KEYINREDEF,A$0300, 
L$54 n 

4) responder as perguntas que aparecerao 
na tela e fornecer um nome a tabela de re- 
definigoes criada. . . . 


190 PRINT CHR$ (4);"BSAV 
E KEYINREDEF f A$0300, 
L$55" 

4) rodar o programa COLOCA (RUN CO- 
LOCA); e responder as perguntas que apa- 
recerSo na tela e fornecer um nome a ta- 
bela de redefmi^oes criada.. . 


29 


50, do Inteligencia 
Artificial-!, 2? co- 
luna, apos o 1° pa- 
ragrafo 




O funcionamento do Minimizador e and- 
logo, exceto pelo fato de que ele tenta co- 
locar o melhor lance em Beta. 





M 



PROCURE QUEM 
REALMENTE ENTENDE. 



J^MICROMAQ 

R. Sete de Setembro, 92 - Lj. II 
Tel.: 222-608S - Rio de Janeirt 



POR QUE NAO TUDO EM 
UM SO LUGAR? 

Microcomputadores, Sotware, Publicasoes 
Especializadas, Cursos e Manutencao de Equipamentos. 



Linha TRS-80 



Paginando melhor o video 

Na Secao Dicas de MS n9 25, pubticamos uma rotina 
para ^paginar" o video. Agora apre sen tamos uma forma 
ainda rnais pratica para controlar, atraves do endereco do 
cursor, o numero de linhas de uma "pagma" do vi'deo, per- 
mitindo que se passe para a outra "pagina" do video so- 
mente quando desejarmos: 

100 CLS:FOR I - 1 TO 100 

1 10 PRINT "LINHA" ; I 

120 IF PEEK( 16416) + 256* 

PEEK( 16417) - 15360>832 
THEN GOSUB 500 
130 NEXT I 
140 END 
500 PRINT "APERTE QUALQUER TECLA 

PARA NOVA PAGINA" 
510 IF INKEY$ - "" GOTO 510 
520 CLS:RETURN 

E o mais interessante e saber que as posicoes 16416 e 
16417 contern, respectivamente, o LSB e o MSB da posicao 
aiual do cursor na tela (memoria de video, de 15360 a 
16383); a linha 120 calcula a posicao PRINT @ , compa- 
rando-a com a posigao initial da linha desejada -832, neste 
caso, e que corresponde a 13? linha. E apos imprimir esta 
linha, a sub-rotina da linha 500 imprime uma mensagem na 
linha seguinte e fica aguardarido que se pressione qualquer 
tecla para,entao. imprimir uma nova "pagina". F. importan- 
te lembrar que a impressao na 16? linha causa sempre o ro- 
lamento {SCROLL) da tela. 



Roberto Quito de $ant'Anna-RJ 
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Se voce tern pequenas rotinas 

e prog ram as utiiitarios realmente 

uteis tomando poeira em seus 

disquetes ou fitas cassete, antect'pe-se 

aos piratas e trate de divulga-los. 

Envie-ospara a REDAQAO DA MICRO 

SISTEMAS-SEQAO DICAS: Rua 

Visconde Silva, n9 25, Botafogo, 

Rio de Janeiro-RJ, CEP 22281. 

Nao se esqueca de dizer para qua! 

equipamento for am desenvolvidos. Desta 

forma, sua descoberta podera ser util 

para muitos e muitos, em vez de 

desmagnetizar-se com o tempo em 

suas fitas e disquetes. . . 



-— ■■ u a» 


Vm 


1 


iff riii J* * * 




Ai vai uma dica para aqueles que tern um micro comresolucaogratica 




capaz de executar incn'veis desenhos, mas nao possuem uma impres- 
sora com recursos graficos para imprimir seus desenhos arti'sticos: 




1000 


INPUT "DESEJA IMPRIMIR"; R$ 


Simulacdo 


1 100 


IF LEFT$ (R$,1) = "N" THEN END 


de 


1200 


LPRINT TAB (20) "TITULO DO DESENHO" 


1300 


LPRINT 


impressora 


1400 

1500 


FOR Y = TO 4 7 
FOR X = TO 127 


grdfica 


1600 


IF POINT (X,Y) THEN LPRINT " * " ; ELSE 
LPRINT " " ; 




1700 


NEXT X : LPRINT " " : SET (0,Y) 




1800 


NEXT Y 




1900 


LPRINT : LPRINT "MENSAGEM OU DEDICATORIA" 




2000 


RETURN 




Nesta rotina, que pode ser incluida em qualquer programa, o carater a ser uti- 
lizado (no caso "*") podera ser qualquer um. A instrucao SET (0, Y), na linha 
1 700, permite que acompanhemos pelo video em qual linha a impressora esta. 
Agora e so maos a obra. . . de arte. 




Fa" bio Lopes Sampaio-RJ 



Linha Sinclair 



Calculadora infalivel 

Iransforme seu micro numa calculadora e faca calculos 
matematicos, cientificos e ate mesmo financeiros, com esta 
dica que pode ser usada sozinha ou como rotina em seus 
programas: 

10 INPUT AS 

2 CLS 

3 PRINT A$; "=";VAL A$ 

4 GOTO 10 

Agora digite RUN e depois que o cursor aparecer, escre- 
va a operacao como neste exemplo: 

RESULT ADO NA TELA 



ENTRADA 



OPERACAO 

10-5 10-5 

(NEW LINE) 



10-5 =5 



Ruben Feffer-SP 



Linha TRS 80 (I) 



Corrigindo um NEW err ado 

As vezes, por descuido, teclamos NEW em um pro- 
grama em BASIC que queriamos salvar. Para corrigir 
este erro e recuperar o programa, e so ter o seguinte 
procedimento logo depois que errar: 
19 -Teclar 'POKE 17130,1' 
29 - Digitar 'SYSTEM* 
39 - Responder ao »? Com 711395' 
49 - Dar um 'LIST* para ter certeza de que o programa 
voltou (nada de dar RUN!) 
59 - Digitar o comando *SAVE' para gravar no cassete. 



Fernando Guimaraes de Lima Silva- R J 



Geral 



Recuperando fitas de impressora 

Se voce tern uma impressora e esta querendo reduzir o 
consumo de fitas, veja como e simples recupera-las: bast a 
fazer duas ou tres pequeninas aberturas estrategjcamente 
distribuidas no cartucho plastico e injetar pequenas doses 
de um lubrificante spray tipo Wp 40, ou similar, com o au- 
xilio do tubinho que acompanha o produto. 

Outra maneira seria levantar com cuidado um lado da 
tampa do cartucho e colocar o lubrificante diretamente. 
Mas e preciso ser muito cuidadoso porque se a fita escapar 
do cartucho, voce nunca mais vai conseguir coloca-la de no- 
vo. A quantidade de lubrificante deve ser definida experi- 
mentaimente, um pouco de cada vez, e este processo pode 
.ser repetido de tres a cinco vezes. 

Roberto Quito de Sant'Anna-RJ 



Linha Sinclair 



Troque os numeros 

Confunda os amigos do alheio, alterando graficamente 
todos os numeros do seu programa, sem no entanto alterar 
os vaiores desses numeros. Para tal, digite esta sub -rotina 
junto com seu programa principal e RUN 9990, e apos al- 
gum tempo de uma espiada na bagun$a que ficou: 



REM EDSON N YAMADA 

FAST 

LET 1=16514 

LET F = PEEK 1 6396 + 256*PEEK 



9990 
9992 

9993 

9994 LET F=PEEK 1 6396+256*PEEK 1 
6397 

9995 IF PEEK 1=118 OR PEEK 1=126 
THEN LET 1=1+5 

9996 IF PEEK I>=28 AND PEEK I<=3 
7 THEN POKE I , INT (RND*9)+28 
9998 LET 1=1+1 

9 99 9 GOTO '9995 

Mas e importante observar duas restrigoes nesta dica 
contra espioes: nao a utilize em programas escritos em lin- 
guagem de maquina e tambe'm nunca EDITE uma linha alte- 
rada. Esta dica foi criada a partir da leitura atenta do artigo 
"Escondendo o jogo no TK82-C" (publicado em MS n9 22, 
pag. 36); se houver quaisquer diividas, e so consultar o arti- 
go citado. 

Edson Noboru Yamada-SP 



Linha Sinclair 



SCROLL regional 

No artigo "Abrindo espago na tela" (MS n9 24, 
pag. 28), o autor da uma dica para aproveitarmos 
as duas ultimas linhas do video, afirmando que isto 
e feito apenas trocando a variavel DS-FZ, que con- 
tern o valor do numero de linhas em branco na par- 
te inferior da tela (o normal seria 2), para o valor 0. 
Aproveitando est as informacoes, apre sen tamos 
este programa, que faz um rolamento dos caracte- 
res somente da metade da tela para cima: 



352 



FOR F= 1 TO 

PRINT "ED"; 

NEXT F 

POKE 164 18, 1 3 

SCROLL 

GOTO 7 



Assim, para fazer um SCROLL regional, basta 
dar um POKE 16418,X, sendo que X e igual a 23 
menos o numero de linhas que podem ser roladas. 
Mas e importante nao esquecer que X nunca deve- 
ra ter o valor de 0. 



Edson Noboru Yamada-SP 



- 



Os micros da I in ha Sinclair podem auxilia-lo no estudo das associacoes 
de resistores em circuitos eletricos. Veja so 



Uma aula sobre 
circuitos eletricos 



Podemos encarar como realidade 
no Brasi! a utilizacao do rnicro- 
eomputador no ensino, man- 
tendo as devidas proporcdes. 
As diversas experiencias ja realizadas 
nessa area estao mais voltadas para a 
iniciacao do aluno, notadamente o de 
29 grau, nas linguagens (principal me nte 
o BASIC) e no uso do aparelho. do que 
para a utilizacao do microcomputador 
como urn recurso adicionai de ensino 
(Mannho, s. d.). 

Este ultimo emprego nao tern sido o 
mais procurado e e exatamente nessa 
area que vemos um grande potencial 
ainda nao explorado, inclusive pela 
carencia de software, fern sido destaca- 
do o pa pel dos professores e ai incluem- 
se, principalmente, os da area de Cien- 
cias Exatas, que deveriarn ser encarrega- 
dos da elaboracao desse software. 

Uma boa perspectiva que vemos da 
utilizacao do microcomputador como 
meio auxjliar no processo ensino- apren- 
dizagem, nao excluindo a utilizacio de 
outros recursos e nem identificando-o 
como um substituto para as carencias 
de recursos instrucionais (Seminario Na- 
tional de Inforrnatica na Educacjao, 
1982), encontra-se na CS1 - Computer 
Supported Instruction. 

Na CSI, a simulacfo e de significativa 
importancia (Chaves, 1983) e, embora o 
microcomputador nao move ao permitir 
a simulacjfo, ele a torna realizavel nas 
escolas de 19 e 29 graus, notadamente 
pelo seu reduzido custo (Piazzi, 1982). 
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Simao Pedro P. Marinho 



O programa (Holko, 1983) que apre- 
sentamos, adaptado para a Hnha Sinclair, 
e uma simulacao no ensino de Ffsica, no 
estudo das associacoes tie resistores em 
circuitos eletricos. 

Nao e proposta que esse programa se- 
ja utilizado como substituto de uma pra- 
tica que possa ser desenvolvida em la- 
boratory, mas sua aplicabilidade e 
am pi a. Piloto de uma serie de programas 
que esta sendo planejada na PUC-MG, 
ele e, antes de mais nada, uma tentativa 
de tomar disponiveis programas que 
possam ser utilizados no ensino, inclusi- 
ve como facilitador da intera^ao ho- 
mem-maquina. 



REVENDO A TEORIA 



Existem fundamentalmente duas pos- 
sibilidades de associacjfo de resistores 
(dois ou mais) em um circuito: em serie 
e em paralelo. A combinacSo dessas 
duas modalidades determina a associa- 
cao dita mista. 

A principal caracteristica da associa- 
9ao em paralelo e que o ddp (diferen- 
tial de potencial etetrico) entre os ter- 
minais de cada um dos resistores asso- 
ciados e o mesmo da associate A 
corrente i que chega ao ponto A sub- 
divides em tantas correntes quantos 
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Figura I 



sejam os resistores associados. Veja na fi- 
gura 1 um exemplo disso, onde indica- 
mos apenas duas correntes. 

As duas correntes (if, que passa por 
Rlj e 12, que passa por R2) somam-se 
no ponto B, de tal maneira que: 

i «» i- ♦ i_ (I ) 

Considerando que ddp (V^B) e o 
mesmo para os dois resistores. temos pe- 
la lei de Ohm que Vj\B = Rpi = R2'2 
Dai: 



AB 



AB 



Se substituirmos ii e 12 em (I), tere- 
mos entao: 



1 - V AB ( ~ '— > 

R l R 2 



donde : 



j en 



Pela lei de Ohm, temos V^B ■ W ou 

_i = _1 I III) 

V A „ R 

AB 

Agora, comparando (II) e (III): 
Gene rail zan do, 



PROGRAMA 



Apos a i den tifi cacao do programa 
(linhas 1 a 50) e a inicializacao das varia- 
veis (linhas 60 a 360), uma sub-rotina 
(linhas 1000 a 1750) monta circuito 
com dois resistores de resistencias K\ e 
R2, apos o que sao impressas algumas 
indicates (linhas 380 a 465). 

A montagem do circuito e feita em 
velocidade maior (FAST) o que, obvia- 
mente, provoca o desaparecimento tem- 
porario de imagens. Se o usuario qui- 
ser acompanhar a montagem do cir- 
cuito, devera retirar a Hnha 1008 do 
programa. 

O programa esta preparado para que 
as resistencias (R] e R2) sejam initial - 
mente iguais a 100 ohms e a forca ele- 
tromotriz (FEM) igual a 12 volts. Para 
evitar a divisSo por zero, se em algum 
momento os valores das resistencias ou 
da FEM forem iguais ou inferiores a 
zero, os valores iniciais (100 ohms e 12 
volts) serao restabelecidos (linha 500). 

Nas linhas 540 a 590, sao feitos os 
calculos de corrente e resistencias no cir- 
cuito, em cada segmento, que sao im- 
presos (Unhas 600 a 660). Para que a 
atencao do aluno seja despertada antes 
de cada impressao dos novos valores 



(isso se houve alteracjib em R], R2 ou 
VT), os valores anteriores sao apagados. 

Deve-se ter cuidado no momento de 
digitar os espacos (usados para apagar os 
valores anteriores) nas linhas 600, 615, 
625, 635, 645 e 655. 

O programa permite (linhas 670 a 
890) que usuario possa alterar, duran- 
te sua execucao, os valores tanto das 
resistencias (R] e R2) quanto de FEM. 
Essa alteracao e feita digitando 6 ou 7 
quando o sinal representado por tres as- 
tenscos estiver piscando sob as indica- 
goes dos valores de R ou FEM. Cada 
vez que 7 e digitada, quando o sinal 
*** estiver sob os valores das resisten- 
cias, esses serao acrescidos em 10 ohms; 
no caso da voltagem, cada vez que a te- 
cla 7 e acionada. seu valor e acrescido 
em 1 Volt. A tecla 6 diminui as resisten- 
cias em 10 ohms e a FEM em 1 Volt. 

Apos a alteracao, o microcomputa- 
dor executara novos calculos e indicara 
os novos valores de leitura de IT, II e 
12. que serao impressos, alem de corrigir 
os valores de VI, V2. resistencias (Rl e 
R2)eFEM(VT). 

Para parar programa, deve-se digi- 
tar BREAK. Tinha o cuidado de. apos 
o BREAK, nao digitar CONT (se quiser 
rodar programa, digjte RUN). Isso 
porque o circuito e impresso em uma 
sub-rotina (linhas 1000 a 1750) e, de- 
pois disso, programa roda em um loop 
(entre as linhas 500 e 900) e, portanto. 
o CONT permitira que sejam reiniciados 
os calculos com as impressoes dos novos 
valores, mas nao permitira a impressao 
de novo circuito. 

Para gravar em fita ou carregar apos a 
gravacjTo, digite SAVE ou LOAD, acom- 
panhadode SIMULACAO I. 
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do Departamento de Ci&ncias Bioldgicas d$ 
Pontificia Universidade Catdlica de Minas Ge- 
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IMPRESSORA 
PARA 

CP-300 



Agora voce ja pode ter uma impressora pa- 
ra o seu CP - 300. 

Coma Interface DW 121/CP voce pode 
utrltzar uma mdquina de escrever 
OLIVETTI Eletr6nica ET 121 como im- 
pressora de textos ou programas, sem 
alterar as caracterfsticas origjnais da ma- 
quina ou do Micro. 

Instalada intemamente na maquma de es- 
crever, a Interface permite uma s6"rie de 
recursos especiais para a conf eccao de tex- 
tos, tais como: subfinhamento automati- 
co, negrito automatico, comprimento de 
linha programavel e outros. 
Solicits maiores informacdes a 

DftiSV LUHEEL eletronics 
Inddstria e Comercio Ltda. 

Uma Dtvisab da ESFEROMAC Ltda. 
Rua Antonio Comparato, 200 
Tels.: 532-01 54 e 240-4829 
CEP 04605 - Sao Paulo - SP 



m 



ICRO PROCESS 

COMPUTADORES LTDA. 



- MICROCOMPUTADOBES TK 2CO0/85/83 
CP.500, 300 200 ■APPLES"' 
MONITORES. IMPRESSORAS PAPEL, 
FITAS. DISKETTE. ETC. 

- MANUTENCAO EQUIPAMENTOS 
IAVULSOEP' CONTRATOI 
PROGRAMAS DE CONTABILIDADE. 
ADMINISTR. IMOVEIS. 

- ELABORACAO DE PROGRAMAS 
ESPECIAIS 

- PERSONALIZACAODE PROGRAMAS 
PARA F1RMAS E PROFISSIONAIS 
LIBERAIS 

- CONTROLE DE CLIENTES. TRATAMENTOS 
E CONTAS PARA CONSULTORlOS 
MEDICOS EDENTARIOS 

PACOTES DE PROGRAMAS PARA 
ADVOGADOS. E CORRETORES DE 
VALORES EAC0ES 

- OFERTAS ESPECIAIS 10RTNI 

• SUPERVISICAL (APPLEl (CP 500'23l. 20 
- OPEN MARKET OVERNIGHT 

iCP. 500/231 50 

• CARTEIRA DE AC0ES (CP 500/23) .. 40 

• CONTROLE DE OCORRENCIA 

PROCESSUAIS (CP.500'APPLE) 100 

VIDEOGAMES 

lAPARELHOS E CARTUCHOSl 

- REVISTAS, PUBLICACOES TECNlCAS 

- PRECOS DE SAO PAULO 
DESPACHAMOS VIA VARlG POR NOSSA 
CONTA 

AMPLO FINANCIAMENTO 

TEL: 64-0468 

Alameda Lorena, n° 1310 

CEP 01424 -Sao Paulo 

*"ESTACIONAMEI¥T0 PARA CLIENTES'" 



UMA AULA SOBRE CIRCUITOS EL^TRICOS 



Simulagdo em Fhica I 



| REM *********************** 



2 


REM 


SIMULACAO EM FISICA I 


3 


REM 






4 


REM 


S 


P.P.MARINHO 


5 


REM 


DEP.CIENCIAS BIOLOGICAS 


6 


REM 




PUC-MG 


7 


REM 


CAIXA POSTAL 2686 


8 


REM 


30000- 


-BELO HORIZONTE/MG 


3 


REM 


*********************** 


10 


REM 


"SIMULACAO I" 


15 


REM 


IMPRIME IDENTIFICACAO D 


PROGRAMA 




20 


PRINT AT 4,4; "SIMULACAO EM 


FISICA I 






30 


PRINT AT 1, 5; "CIRCUITOS ELE 


TRICOS" 






40 
M" 
50 


PRINT AT 14,9;"CIRCUITO CO 


PRINT AT 


5, 3; "RESISTENCIAS 


EM PARALELO" 




55 


REM 


INICIALIZA VARIAVEIS 


60 


LET 


A=PI/PI 


7 


LET 


B=VAL 


"6" 


B0 


LET 


OVAL 


"8" 


90 


LET 


D=VAL 


"11" 


100 


LET 


E=VAL 


"8*2" 


1 10 


LET 


F=VAL 


"13" 


120 


LET 


G=VAL 


"15" 


130 


LET 


H=VAL 


"2*C" 


140 


LET 


I=VAL 


"C + E" 


150 


LET 


J=VAL 


"B+G" 


160 


LET 


K=VAL 


"D*2" 


170 


LET 


L=VAL 


"D+E" 


180 


LET 


M=VAL 


"E+F" 


190 


LET 


N=VAL 


"D+H" 


200 


LET 


0=VAL 


"G+H" 


210 


LET 


P=VAL 


"F+I" 


220 


LET 


Q=VAL 


"F+K" 


230 


LET 


R=VAL 


"E+M" 


240 


LET 


S=VAL 


"1*2" 


250 


LET 


T=VAL 


"J*2 M 


260 


LET 


U=VAL 


"I+L" 


270 


LET 


V=VAL 


"B*C" 


280 


LET 


W=VAL 


"N*2" 


290 


LET 


X=VAL 


"1*3" 


300 


LET 


Y=VAL 


"J*3" 



310 LET BS="R1" 

320 LET C$="R2" 

330 LET DS="FEM" 

340 LET E$= "VOLTS" 

350 LET F$="AMP" 

360 LET G$="***" 

365 REM DIRIGE PARA SUB-ROTINA 

370 GOSUB 1000 

375 REM IMPRIME INDICACOES NO C 
IRCUITO 

380 PRINT AT 5,5;F$ 

390 PRINT AT 5, 14;F$ 

400 PRINT AT D, 1 ;ES 

410 PRINT AT D,H;E$ 

420 PRINT AT D,26;D$ 

430 PRINT AT 2,K;F$;" TOTAL" 

440 PRINT AT I,A;B$;"=" 

4 50 PRINT AT I,E;C$;"=" 

460 PRINT AT I , 2*E; DS ; " =" 

465 REM INDICA RESISTENCIA E VO 
LTAGEM INICIAIS 

470 LET Rl=100 

480 LET R2=100 

490 LET VT=12 

495 REM VERIFICA SE R1.R2 OU VT 
SAO IGUAIS OU MENORES QUE ZERO 

500 IF R1<=0 OR R2<=0 OR VT<=0 
THEN GOTO UAL "470" 

505 REM IMPRIME VALORES DAS RES 
ISTENCIAS E VO LTAGEM 

510 PRINT AT I,4;R1;" OHM " 

520 PRINT AT I,15;R2;" OHM " 

530 PRINT AT I,28;VT;" V " 



5 35 REM CALCULA VARIACOES NO CI 
RCUITO 

540 LET V1=VT 

550 LET V2=VT 

560 LET RT=INT ( R t *R2/( R1+R2 ) * 1 
0001/1000 

570 LET IT=INT ( VT/RT* 1 000 ) / 1 00 


580 LET I1=INT ( VI /R1 * 1 000 ) / 1 00 


590 LET I2=INT ( V2/R2* 1 000 ) / 1 00 


595 REM IMPRIME MEDIDAS 

6 00 PRINT AT 3,24;" 
610 PRINT AT 3,24;IT 
615 PRINT AT 7,4;" 
620 PRINT AT 7,4;I1 

6 25 PRINT AT 7,13;" ■ 
630 PRINT AT 7, 13;I2 
6 35 PRINT AT F,2; " 
640 PRINT AT F,2;V1 
645 PRINT AT F,17; n 

6 50 PRINT AT F,17;V2 
655 PRINT AT F,26;" 
660 PRINT AT F,26;VT 

665 REM IMPRIME ORIENTACOES PAR 
A ALTERAR RESISTENCIAS E/OU VOLT 
AGEM 

670 PRINT AT 0,0;"DIGITE 7 P/ A 
UMENTAR" 

680 PRINT AT 1,0;" 6 P/ D 
IMINUIR" 

685 REM PERMITE USUARIO ALTERAR 

VALORES DAS RESISTENCIAS OU DA 
VO LTAGEM 

690 FOR Z=1 TO 10 

700 PRINT AT J,4;GS 

710 LET A$=INKEY$ 

720 IF LEN A$=0 THEN PRINT AT J 
, 4 ; " 

730 IP A$="7" THEN LET R1=R1+10 

740 IF A$="6" THEN LET R1=R1-10 

7 50 NEXT Z 

760 FOR Z=l TO 10 

770 PRINT AT J,G;G$ 

780 LET A$=INKEYS 

790 IF LEN AS=0 THEN PRINT AT J 
, G ; " 

800 IF A$="7" THEN LET R2=R2+10 

810 IF A$="6" THEN LET R2=R2-10 

820 NEXT 2 

830 FOR Z=1 TO 10 

840 PRINT AT J,N;G$ 

850 LET A$=INKEY$ 

860 IF LEN A$=0 THEN PRINT AT J 
. N ; " 

870 IF A$-"7" THEN LET VT=VT+1 

880 IF AS="6" THEN LET VT=VT- t 

890 NEXT Z 

900 GOTO VAL "500" 
1000 CLS 

1005 REM MONTA CIRCUITO 
1008 FAST 
1010 FOR Z=U TO Y 
1020 PLOT Z,41 
1030 PLOT Z,34 
1035 NEXT Z 
1040 FOR Z=B TO I 
1050 PLOT Z, 34 
1060 PLOT Z,26 
1065 NEXT Z 
1070 FOR Z=L TO R 
1080 PLOT Z, 34 
1090 PLOT Z,26 
1095 NEXT Z 
1 100 FOR Z=A TO E 
1110 PLOT Z , K 
1120 PLOT Z, 14 
1 125 NEXT 2 



1130 


FOR 2=0 TO 


■■ 




1 140 


PLOT Z,K 






1150 


PLOT Z , 1 4 






1155 


NEXT Z 






1 160 


FOR 2=V TO 


X 




1 170 


PLOT Z,K 






1 180 


PLOT Z , 1 4 






1 185 


NEXT Z 






1 190 


FOR Z=K TO 


T 




1200 


PLOT Z,38 






1205 


NEXT Z 






1210 


FOR Z=E TO 


O 




12 20 


PLOT Z , 3 6 






1225 


NEXT 2 






1230 


FOR Z=B TO 


G 




1240 


PLOT Z, 24 






1250 


PLOT 2,E 






1255 


NEXT Z 






1260 


FOR Z=28 TO R 




1270 


PLOT Z.24 






1280 


PLOT Z,E 






1285 


NEXT Z 






1290 


FOR Z=K TO 


W 




1300 


PLOT Z,C 






1305 


NEXT Z 






1310 


PLOT K,R 






1320 


PLOT E,Q 






1330 


PLOT E,D 






1340 


PLOT 0,Q 






1350 


PLOT 0,D 






1360 


PLOT B,L 






1370 


PLOT R,L 






1 ;80 


PLOT B,F 






1390 


PLOT R,F 






1400 


PLOT K,C 






1410 


PLOT K , 9 






1420 


FOR Z=E TO 


M 




1430 


PLOT H,Z 






1440 


PLOT N,Z 






1445 


NEXT 2 






1450 


FOR Z=E TO 


O 




1460 


PLOT Z , 1 






1465 


NEXT Z 






1470 


FOR Z=Q TO 


S 




1480 


PLOT U,Z 






1490 


PLOT Y,Z 






1495 


NEXT Z 






1500 


FOR Z=N TO 


P 




1510 


PLOT B,Z 






1520 


PLOT I,Z 






1530 


PLOT L,Z 






1540 


PLOT R,Z 






1545 


NEXT Z 






1550 


FOR Z=G TO 


J 




1560 


PLOT A,Z 






1570 


PLOT E,Z 






1580 


PLOT 0,2 






1590 


PLOT U,Z 






1600 


PLOT V,Z 






1610 


PLOT X,Z 






1615 


NEXT Z 






1620 


FOR Z=C TO 


F 




1630 


PLOT W,Z 






1635 


NEXT Z 






1640 


FOR Z=L TO 


P 




1650 


PLOT W,Z 






1655 


NEXT Z 






1660 


FOR Z=H TO 


J 




1670 


PLOT G,Z 






1680 


PLOT H,Z 






1690 


PLOT N,Z 






1700 


PLOT 2 8,Z 






1710 


PLOT 17,Z 






1720 


PLOT 26, Z 






1725 


NEXT Z 






1730 


PRINT AT D, 


9 ; "< " 


E3 


1740 


PRINT AT F, 


10;C$ 


■• > 


1745 


SLOW 






1750 


RETURN 








ffl.5. Serulcos 



PRH 

CONSULTORES 



Assessoria em Processamento de 

Dados 

Desenvotvimento de Programas 

PROGRAMAS PRONTOS 

(TRS-80-III — diskette) 

• Emissao de Carries 

• Controle de Convenios 

• Processamento de Cadastros 

• Historico Medico 

• Mala Direta 

• Lista de Precos com Reajuste 
Automatico 

• Cadastro de Artigos de Re- 
vistas e/ou Livros 

• Cadastro de Clientes 



PRH Consultores 

Rua Mexico, 70-Grupo 810 811 

Centre- R J Tel.: (021)220-3038 



BB BITS E BVTH 

COMPUTADORES 




Umhip 

COMPUTACAO 



VENDAS 

ASS. TECNICA 

ESPECIALIZADA 

PROGRAMAS 

DISKETTES 

FTTAS 

SERVigOS 

CURSOS DE BASIC 

FORMULAJUOS 



CONSERTCXS EM 24 HORAS 

(COM GARANTIAI PARA 

O CP-500 e OCT- 100 



EM SAO CONRADO 

Estrada da Gavea, 642 

L|. B Tel.: 322-1960 
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MICROSISTEMAS, margo/84 



_. TMlGTO 

Sistemas 



PROBLEMAS 

COM SUA 
ASSINATURA? 

Escreva para o nosso Departa- 
nnento de Assinaturas do Rio ou 
Sao Paulo e envie, para facilitar, 
a sua etiqueta adesiva de femes- 



4ISLU 



Rua Visconde Silva, 25 - Bota- 
fogo - Rio de Janeiro — RJ — 
CEPt 22281 - Tefs.: (021 ) 286- 
1797, 246-3839 e 266 0339. 
Al Gabriel Monteiro da Silva, 
1 227 — Jardim Paulistano — Sao 
Piulo - SP - CEP J 01441 - 
Tel : (Oil) 853-3800. 



'&feSG»* 



H*£ 






**Z*S0(> 






**"* 



* «s°£tt* 



soVi 



Kua Miguel Lento* n. 41' 

sata 606 - t opacabana 

Tel.: 227-8803 

Rio de Janeiro - RJ. 



No Recife, visile 
TELEVIDEO 



(') 



O Lojao Oe Intormatica mais 
descompiicado do pais 1 
Micros, penfencos. supnmen- 
tos. Software. Cuisos. Livros e 
Revistas, Components Eietro- 
nicos, Pecas e Som. 



PREgOS ESPECIAiS 
FINANCIAMENTO PROPRIO. 



Compre pessoaimente ou peio 
Reembolso Postal. 

TELEVIDEO LTDA. 

R. Marques do Herval, 157 
Tel.: (081) 224-8932, 
(50000) Recife, PE 



()Sr. Industrial: distribuimos seu 
produto nas melhores condiqoes. 
Contato em Sao Paulo Tel.: (011) 
220-7377 (Sr. ANDERSON - Mun- 

t di$om) . 



"MIKRO S" 

AGORA NO 

LEBLON! 

Av. Aiaulfo de Paiva 566 - Loja 2M 
Rio de Janeiro — Tel.: 239-2798 



APROVE1TE OS PRECOS 

"1NCR1VEIS" DA "MIKROS 

DO LEBIjON, em SUA EPOCA 

DE 1NAUGURACAO 



,\1 / CROC OM PU TADOR ES 



NA JA — JRSYSDATA — UN1TRON 
COLOR 64 — APPLE-TRONIC 
CP-200 — CP-300 — CP-500 
TK-83 — TK-85 — R1NGO 



SISTEMAS 



SOFTWARE (NAC.E IMPORT) 
IMPRESSORAS E PERIFERICOS 
CURSO DE BASIC 



PROF1SSIONAIS 

ALTAMENT1 ESPEC1AL1ZADOS 

PARA ATBNDE-IjO 



APPLE II 



Transformapao PAL-M 

Assistencia Tecnica 

Expansoes 



UN1TRON 



Ass 



istencia Tecnica 
Autcrizada 
Vendas ■ Leasing 
Expansoes 



MICROEQUIPO 



DATAMICRO 



VENDA DE 
MICROCOMPUTADORES 
TK 83, 65, & 2000 COLOR 

CP 300, 500 & 600 
COLOR 64 (EXT. BASIC) 

SUPRIMENTOS 

Disqu&te. ritas. lorm corttingo 



CONSULTORIA D£ SISTEMAS 

Diagnostico e apoio a decisao 



CURSOS E TREINAMENTO 

Introdu^o aos microcomputadores 

Linguagem Basic 

Aplicacao dos micros 

na Engenharia 

Micfocomputadores para cnancas 

INSCRICOES A8ERTAS 
Livros e revistas especializados 



Vise, de Pi raja, 547 Sobreloja 211 

Cep. 22.410 Ipanema Rio RJ 

Tel.: (021) 274-1042 

DESPACHAMOS PARA 

TODO BRASH 



SincGat/t^QCe 



O lugar compativel 

com voce e seu 

micro. 



r 



- Micros 

— Acessorios 
— Software 

— Livros 
— Revistas 



Rua Dias da Cruz, 215 

s/804 — Rio de Janeiro — RJ 

Tel.: 594-2699 



Alfa Bit. 

CLUBE DE C0MPUTA$A0 



Associe-se ao ABCe e ganhe Aniincio GRA- 
TIS, urn exemplar de ALFABIT e OESC0M- 
TOSde 107« na compra de LIVROS. REVIS- 
TAS, CURSOS e PROSRAMAS alem de 

— Services de "Reprmters" e Consuttas 

— Associagao a Clubes Europeus 

— Parucipacao em Cursos, Congresses e 
Concursos 

— Novos Lancamentos a PREQOS REOUZl- 
O0S (Breve: IMPRESS0RA DE AGU- 
LHAS P/MINI-MICROS DE LOGICA SIN- 
CLAIR - Lanr^mento "Digilal EietfO- 
nica") 

AN Ul DADE' CrS 1 000 (Hum mil cruzeiros) 

somenteao receber seu Cartao-Descontos e 

urn exemplaf de "Alfabit" 

Envie noma, endereco. prolissao e texto do 

seu anuncio (caso queira pubiicacao ime- 

diata). 



NOVIDEIAH 

Comunicacao e Informitice Uda. 

CAIXA POSTAL 9978 

CEP 01051 - Sao Paulo, SP 



(Comerciatizamosseu proie 
to-Soft ou Hard. Escreva-nos 






PRODUTORES DE SOFTWARE 

Empresa de processamento de dados em fase de 
expansao em microinformStica esta selecionan- 
do e adquirindo software de boa qualidade, em 
linguagem fonte, para microcomputadores das 
linhas APPLE, CP/M e para os compatfveis com 
PC IBM. 

Pede-se aos autores interessados remeterem a 
relacao de seus sistemas para "GOOD IDEA" 
a/c desta revista. 

ALAMEDA GABRIEL MONTEIRO DA SILVA 

n? 1227 - JARDIM PAULISTANO - S.P. 

CEP: 01441 



Aprender a fracionar visualizando o todo e as partes fica bem mats facii, 
principalmente quando o quadro-negro se trans forma na tela de um micro TRS-80 



1/5, 2/3, 7/12... 

A tela, para aprender fra^oes 



Heber Jorge da Silva 



Ensinar fracoes as criancas em 
idade escolar e o objetivo deste 
programa, que roda em 
qualquer micro da linha 
TRS-80 com 16K.bde RAM. 

programa plotara no video uma 
area dividida aleatoriamente em ate 12 
partes, enu me ran do-as uma a uma, o 
que ira determinar o denominador da 
fracao. Em seguida, preen chera um 
numero aleatorio dessas divis5es, o 
que rcpresentard o numerador da 
frag So. A partir dai\ o computador 



pedira a crianca para entrar com a 
fragao conespondente a area plotada. 

programa aceitara' respostas de 
diversas maneiras. For exemplo: se a 
resposta correta e 8/12, a crianca podera 
responder com 2/3, com 4/6 ou ainda 
com o proprio 8/12. Se a resposta for 
uma das ultimas, o programa fara a 
simplificagao para 2/3, mostrando-a 
no video. 

Sempre que a resposta da crianca for 
incorreta, o computador emitira uma 
mensagem de erro e pedira uma nova 



resposta ate obter a correta. 

Observagao : quando da digitacao do 
programa, as linhas com instrucSes 
REM poderao ser ignoradas, uma vez 
que o programa nao faz enderegamento 
as mesmas. 



Formado em Adminisxragao de Empresas pela 
UDF, Heber Jorge da Sitva trabalha atualmen- 
te na Telebrasflia, onde exerce ativi'dades It- 
gadas a programapao de microcomputadores. 



Aprendendo fraqoes 



10 REH #**»wwx a******************* *x **■*****#**********#*# 

20 REM ** APRENDENDO ERACOES ** 

30 REM ** POR HEBER J SILUA - BRASILIA OF - NOV/83 ** 

40 REM ***#*** ■*#**■* ************ *****###*** ■*****#******#*# 

50 RANDOM 

60 REM ** est abel ecendo valorem para o numerador e denominador 

70 A-RND(12>:B=RND< 12) 

80 IFA>BTHEN70 

90 REM ** D=numero de pontes horizontals cjue devera' ter cada divisao 

100 REM ** S=ponto central de cada divisao 

liO D=120/B:S=D/2 

120 C;LS:PRINTTAB<20>"** APRENDENDO ERACOES **"=G0SUB43Q 

130 REM ** delimitando as d i v i sees 

140 F0RX=4T0124STEPD:SET<X,3) : SET ( X , 19 ) : NEXT 

150 REM ** numerando as divisoes 

160 P=449+S/2:F0RI=iTOB:pRINT3P,I;:P=P+S:NEXTI 

17 REM ** L=distancia a ser preenchida (numerador) 

180 I =A*D+4 

190 REM ** preenchendo a area do numerador 

200 FORX=4TOL:FORY=4T018:SET(X,Y) : NEXTY , X = F0RX=4T0LSTEPD : FOR Y=4T01 8 : RESET ( X , Y > :N 



EXTY,X 

210 PRINT3530,"ESCREUA A FRACAO..." 

220 REM ** captando resposta (numerador) 

230 PRINT3652, "Numerador === = = > " ; :INPUTN 

240 PRINT3736," " : IFERTHENPR INT3801 , M : 00T0280 

250 REM ** captando resposta (denominador) 

260 PRINT378Q, "Denominador ====> "-5INPUTM 

270 REM ** testa resposta p/ numerador 

280 IFN=A0R(N=1ANDM=B/A)0R(N=A/2ANDM=B/2)0R(N=A/3ANDM=B/3)0R(N=A/4ANDM=B/4)THEN3 

OQELSEPRINT"VOCE ERROU NUMERADOR !...": G0SUB450 : PR INT3673 , " " - = ER=- 1 : G0T0210 

290 REM ** testa resposta p/ denominador 

300 IFM=B0R(M=B/AANDN=.l)0R(M=B/2ANDN=A/2)0R(M=B/3ANDN=A/3)0R(M=B/4ANDN=A/4)THEN3 

2QELSEPRINT"V0CE ERROU DENOMINADOR !...": G0SUB45O JPR INT38Q1 „ " " ; :G0T0260 

310 REM ** tudo certo 

PRINT:F0RT=lT060:PRINTS)9i8/'ttNttWH ttttH MHtt" ; : PR INT3918 , "MUI TO BEM !! ! " - '■ NEXTT 

REM ** da* para simplificar denom./num. ? 

IFN( >i.ANDM/N=INT(M/N)THENM = h/N:N = N/N:G0T0410 

REM ** da' para simplificar por 3 ? 

IFN/3=INT(N/3)ANDM/3=INT(M/3)THENM=M/3:N=N/3:00T0410 

REM ** da' para simplificar par 2 ? 

X=INT(N/2)*2:Y=INT(M/2)*2:IFX=NANDY=MTHENN=N/2:M=M/2:E=2:G0T0380 

IFE=2THEN410ELSEGOSUB450!GOT0460 

REM ** mostrando fracao simplificada 

I=N:J=M:PRINT3742 7 "<== SIMPLIFICANDO . . . " ? a FORT = 1T060 : PR INT3673 , " "; : PR INT 
"; :PRINT3673,I; = PR INT3801 , J ; : NEXTT : GOSUB 450 : G0T0460ELSEGOSUB 450 : G0T04 



320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

3801 , 

60 

420 

430 

440 

450 

460 



REM ** plota area a ser dividida 

F0RX=4T0i24:F0RX=4T0i24:SET(X„4>:SET(X,i8>sNEXT' 

F0RY=4T0i8:SET(4,Y) :SET(124,Y> : NEXTY : RETURN 

F0RT=1T01000: NEXT: RETURN 

PRINT397Q,"TECL£ QUALQUER TECLA PARA CONTINUAR ' 



: IFINKEY*=""THEN460ELSERUN 




Chame 




Quem trabalha em processamento de dados, sabe 

que as melhores decisoes vivem no mesmo ritmo da 

pulsacao de um microcomputador 

Seelepara, grandes negocios podem ser perdidos 

Por isso, nao deixe qualquer um colocar a 

mao noseu micro 

A MS trabalha desde 1971 em assistencia 

especializada em microcomputacao que se 

Representante no Brasil da MDS 
Mohawk Data Sciences/MSI 
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ondc cc identifies a condicao da flag a ser testada. Veja a figura 1. 
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Curso de 
Assembler - XIV 



000 para cc = Flag HZ ( Z=0 ) 

001 para cc = Flag Z (Z=1) 
010 para cc = Flag MC (C=0) 
Oil para cc = Flag C (C=1) 

100 para cc = .Flag PO (P/V=0) 

101 para cc = Flag PE (P/V=1) 

110 para cc = Flag P (S=0) 

111 para cc = Flag H (S=1) 



N 



I.) ulnnia licao, estudamos o grupo dc JUMPS c espero que 
ate agora voce nao tenhu duvidus e ja tenlia testado alguns p rogr amas 
Assembler. Nesla licao, vamos conlieccr o grupo de CALL e RETURN, 
I st .is instru<:5cs reaiizam as mesmas funcoes que as instrucocs GOSUB/ 
RETURN do BASIC. As instrucjoes que compoem este grupo sao as se- 
guintcs: 

I - CALL In conditional 
Formato: CALL nn 

Operacdo: Desvia o fluxo do processamento para o endereco nn e 
cxecuia as instrucoes a partir deste endereco ate encon- 
trar uma instruc5o RETURN, quando entao rctorna para 
a instruci"o seguinte a instrucao CALL nn. 



Codigo Objeto: 



CALL nn 



i i ' i i i i i 
110 110 1 

— I — I — I — I — I — I — I — 



n 



-\ r 



H 1 H 



j i i i_ 



J L 



> CD 



Exemplo: 



CALL 40A4 H 



1 1 ! 1 1 

110 11 



1 — I — 
1 

H 1 — 



10 10 10 



10 



> CD 



> A* 



■> 40 



Descricdo: Apos salvar o conteudo corrcnte doProgram Counter (PC) no 
Stack, carrega no Program Counter (PC) o operando nn. A 
proxima instrucao a ser executada pelo microproeessador 
encontra-se no endereco nn e o topo do Stack contem o 
endereco dc retorno da sub-rotina. Lembre-se dc que o pri- 
me iro operando dos do is opera ndos nn e o endereco de 
baixa ordem (LSB), enquanto que o segundo operando e o 
operando dealta ordem (MSB). 

CALL A A 4 H ► CD AA A0 



>NSB 



>LSB 



>CALL 



Na execucao desta instrucao, o microproeessador efetua as seguintes 
operacoes: 



m 



(SP-1 ) < 



(SP-2)«- 

PC < 



PC 

I 

PC 



Figura 1 

Descricdo: Se a condicao cc e vcrdadeira, esta instrucao salva o con- 
teudo corrcnte do Program Counter (PC) no Stack e 
carrega no Program Counter (PC) o operando nn. A 
proxima instrucao que sera executada pelo microproees- 
sador encontra-se no endereco nn, e o topo do Stack 
contem o endereco dc retorno da sub-rotina. Se a condi- 
cao cc e falsa, o Program Counter e incrementado nor- 
ma Imente, e o programa continua na proxima instrucao. 



CALL 



Cidos de mdquina (M): 5 
States (TJ : 1 7 (4, 3. 4, 3, 3) 
Flags afctadas: Ncnhuma. 

Exemplo: A rotina a scguir mostra no vi'deo o conteudo da posicao 
0000H de memoria. 
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! TESTE DA FUNCrtQ CALL r.N 
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CO 


A,H 
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s: ! 
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CO 160 
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OP 
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16ITS ^ - 7 
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tCALCULA 1. DIOI TV 
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0O270 
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Flags afetadas; Ncnhuma. 

Exemplo: Se a flag C no regktrador F esta ressctada, o conteudo do 
Program Counter (PC) e 1A47H, o conteudo do Stack 
Pointer e 3002H e as posicoes de memoria tern o seguinte 
conteudo: 



2 - CALL Condicional 

Formato: CALL cc, nn 

Operacdo: Desvia o fluxo do processamento para o endereco nn, se 
a condicao cc for verdadcira. e executa as instrucocs 
a partir deste endereco ate encontrar urn RETURN. Se 
a conditio for falsa, ignora a instrucaio CALL e conti- 
nua a execucao do programa no scu fluxo natural. 



Codigo Objeto: 

CALL cc 



posigAo 


CONTEUDO 


1 AA7 H 
1 AA8 H 
1 AA9 H 


0A H 
35 H 
21 H 



n n 



IT I I I 1 I 

1 1 cccccc 1 00 

-H — I \ 1 1 1 1 — 



n 



1 — h 



h h 



j — 1_ 



J L 



Exemplo: 



CALL Z , AOAA H 



— i 1 1 1 1 1 1 — 

110 110 

— I — I — I — I — I — I — I — 

10 10 10 

1 1 r— I 1 I I 

10 

■ .L, . )■ I 1 1 1 1 



Lntao, quando o microproeessador efetuar o proximo FETCH, en- 
oontrara D43S21, que equivale, em mneumonico, a seguinte instrucao: 

CALL MC , 21 35H 

Apos a execucao da instrucao, o conteudo do endereco de memoria 
300 1H sera 1 A H, o conteudo da posicao 3000H sera 4AH e o conteu- 
do do Stack Pointer sera 3000H. O contciido do Program Counter 
sera 213SH, aponlando para o primciro byte da sub-rotina que deve ser 
executada. 

3 - RETURN Incondicional 
Formato: RET 

Operacdo .Rcioina ao ponto de chamada dc uma sub-rotina cfetua- 
da por uma instrucao CALL 




Codigo Objeto: 



RET 



1 


1 





1 1 

1 

, 1 1 





i 1 




1 



MICRO SISTEMAS. man;o/84 



MICRO SISTEMAS, marco/84 



Descricao: 



Recupcra o endereco colocado no Stack pela instrucao 
CALL e carrega no Program Counter (PC). A proxima 
instrucao executada sera a instxucao seguinte a instrucao 



RET 



PC 



PC 



H 



(SP) 



(SP+1 ) 



Ciclos de maauina (M): 3 
States (T): 10(4, 3, 3) 

Hags afetadas: Nenhuma. 

Exemplo: Se o conteudo do Program Counter (PC) e 3S35H, o 
conteudo do Stack Pointer e 2000H, o conteudo da posi- 
cao de memoria 2000H e B5H e o conteudo da posicao de 
memoria 2001H e 18H. Apos a execucao da instrucao 
RET, o conteudo do Stack Pointer (SP) sera 2002H e o 
conteudo doProgram Counter (PC) sera 18B5H. 

Podcmos compreender melhor a operacao da instrucao RET pelo 
exemplo a seguir: 
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END 
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HL 
DE 



4 - RETURN Condicional 

Formato: RET cc. 

Operacdo. Retorna ao ponto de chamada de uma sub-rotina, efetua- 

da por uma instrucao CALL, se a condicao testada for vcr- » 

dadeira. ,** 
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JUNTOS FORMAM 
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venha comprovar nosso atendimento 
L OITP \MENTOS PROGRAM AS-CURSOS-CONSULTORI A 

leshi In format ka Ltda. 
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CURSO DE ASSEMBLER - XIV 



Cddigo Objeto: 



Exemplo: 



RET 
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Glide cc identificaa condicao da flag a _sertestada. Veja figura 1 . 

Descricdo: Sc a condicao cc c verdadeira, recupera o endereco 
no Stack pela instrucao CALL e carrega no Program 
Counter (PC). A proxima instrucao executada sera a 
seguinte a instrucao CALL. Se a condicao e falsa, o 
Program Counter e incrementado normalniente e o 
programa continua na proxima instrucao. 
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CicUs de iaqulm (M) States (T) 



IKS,),)) 



Flags afetadas: Ncnhuma. 

Exemplo: Se a flag S, no registro F, esta setada, o conteudo do Pro- 
gram Counter (PC) e 3535H, o conteudo do Stack Poin- 
ter (SP) e 2000H, o conteado da posicao de memoria 
2000H i B5H e o conteudo da posicao de memoria 2001 H 
e* 18H. Apos a execucao da instrucao RET M, o conteudo 
do Stack Pointer sera 200 2H e o conteudo do Program 
Counter (PC) sera 18B5H, apontando para a proxima inv 
trucao que sera executada. 

- Retorno de Interrupcao 

Formato: RETI ou RETN 

Operacdo:E$las instrucoes sao usadas ao fim de uma rotina de ser- 
vice de interrupcao. Restauram o_ conteudo do Program 
Counter (PC) e to Ham a execucao do fluxo normal do 
programa, a partir do endereco que estava sendo executa- 
do, quando foi provocada a interrupcao. 



Cddigo Objeto: 



RETI 



i i i i \ 1 r 

1110 110 1 
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H 1 h 
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l__l I 1 I ' ' 
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Descricdo: A instrucao RETI e usada ao firn de uma rotina de servi- 
90 de interrupcao para restauiar o conteudo do Program 
Counter (PC) - executa os mesmos procedimentos da ins* 
trucao RET - e assinala em um dispositivo de I/O que a 
rotina de interrupcao foi completada, Esta instrucao 
tambem resseta os Flip -Flops IFF1 e IFF2. A instrucao 
RETN e usada ao fim de uma rotina de interrupcao nao 
mascarada - executa os mesmos procedimentos da ins- 



trucao RET. estado do Flip -Flop IFF 2 6 copiado no 
Flip-Flop IFFI para aceitar outra interrupcao de NML 

Ciclos de mdquina (M): 4 

States (T): 14(4,4,3,3) 

Flags afetadas: Nenhuma. 

Exemplo: Se o conteudo do Stack Pointer e 1000H e o conteudo do 
Program Counter e 1A45H, quando o sinal de uma inter- 
rupcao nao mascarada (NMI) e recebida, o microprocessa- 
dor ignora a proxima instrucao (completa a execucao da 
instrucao corrente) e provoca um restart para a posicao de 
memoria 0O66H. Isto e, o conteudo corrente. do Program 
Counter (PC) e colocado no Stack nas posicdes de memo- 
ria OFFFH eOFFEH, o Stack Pointer (SPi e atualizado 
para OFFEH e o Program Counter e carregado em 0O66H, 
Este endereco semprc eontem uma rot ma de serocp de 
interrupcao que deve terminar em RETN. Apos a execu- 
cao da instrucao RETN, o Program Counter (PC) e cane- 
gad o com o conteudo do Stack e o programa continua a 
ser executado em seu fluxo normal. 

6 - Restart 

Formato: RST P 

Operagao .Similar a uma instrucao CALL, com a excecao de que o 
operando nn e substituido pelo opeiando P, que define 
uma posicao constante de memoria paia ser carregado no 
Program Counter (PC). 



Cddigo Objeto: 
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Exemplo: 
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onde P define o endereco para o desvio do programa. 
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Descricdo: O conteudo corrente do Program Counter (PC) e salvo 
no Stack e o endereco de memoria dado pelo operando 
P e carregado no Program Counter. O byte mass signifi- 
cative (MSB) do Program Counter e carregado com 
OOH e o byte menos significativo (LSB) e carregado com 
o operando dado pelo operando P. 

| 5 I I H [ S l> 1 1 * P C 

( sc • r I -4 — pc 



Ciclos de mdquina (M): 3 

States (T): 11(5,3,3) 

Flags afetadas: Nenhuma. 

Exemplo: Se o conteudo do Program Counter (PC) e 15B3H, apos 
a execucao da instrucao RST 18H o PC ira corner 001 8He 
o topo do Stack 15B3H. A proxima instrucao executada 
se encontra no endereco 001 8H. ■ 
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Uma das caracteristicas do DGT- 
1000 e a opcao para interface de 
video cohrido. Esta interface Ihe 
permite usarate 16 cores diferentes 
no modo tnaiorde resohicao gr&fica 
(2S6/192 pontos), Voceteraamda 
condicoes de movimeritarno video 
ate 32 areas diferentes. 

A interface requerapenm o video ou 
uma TVcoiorida. 



For ser usado o padraoPAL/M. 
edispensavel no caso da TV 
cotoridti. qualquermodificacao. 

ODGTlOOQt compativel em 
software e hardware com oDGT- 
100 e 101. 
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Este programs, para a finha TRS-80 model o I, mostra o que voce pode fazer 
com os recur sos grdficos de seu micro. Faca uma "dobradinha" com ele\ 



Desenhe em perspectiva 



No artigo CAD: as possibilida- 
des do micro, publicado em 
MICRO SISTEMAS numero 
27 (dezembro de 1983), a- 
bordamos o aparecimento, o desenvolvi- 
rnento e a importancia deste software 
para todas as atividades profissionais 
(ou de lazer) que envolvem projetos e 
desenhos, utilizando os recursos de re- 
solu9ao grafica dos microcomputadores. 
Pois bem. Desta vez apresentamos 
urn exemplo de aplicaca"o, um programa 
que permite desenhar Perspectivas Cava- 
leiras. Este tipo de perspectiva temsuas 
peculiaiidades: a) a parte da figura que 
esta" de frente para o piano de projecfo 
e paralela a ele se projeta em suas di- 
mensOes reais; b) a parte da figura que 
6 perpendicular a este piano (no caso o 
video) se projeta nele em linhas a 45 
graus e tern suas dimensoes reais reduzi- 
das a metade. 

Este programa desenha, em perspec- 
tiva, volumes que sejam cubos ou para- 
lelepipedos, mas pode tambe'm desenhar 
figuras planas (quadrado ou retangulo), 
linhas horizontals, verticals ou inclina- 
das a 45 graus, e pontos. 

sistema de coordenadas do DGT- 
100 nao 6 igual ao sistema de coordena- 
das convencional. No video do micro- 
computador, o eixo horizontal (dos Xs) 
come^a com o valor (zero) a esquerda 
e aumenta para a direita, igual ao siste- 
ma convencional. Entretanto, o eixo 
vertical (dos Ys) comeca com o valor 
(zero) na extremidade superior e vai 



Jorge de Rezende Dantas 



aumentando na dire^ao oposta — no 
sistema convencional £ exatamente o 
oposto. Nosso programa utiliza o con- 
vencional, isto 6, o valor (zero) no 
eixo vertical do video est a" na parte in- 
ferior deste. Ao usar o programa, tenha, 
pois, sempre em mente o sistema de co- 
ordenadas carte sianas convencional — 
ele serd compatibilizado com o sistema 
do microcomputador pelo prOprio pro- 
grama. 

A resolucao graTica de 6.144 pontos 
apresenta como ponto um retangulo 
com o lado maior na vertical e o menor 
na horizontal. Assim, as linhas horizon- 
tals sao mais espessas que as verticals. 
Por outro lado, se tivermos dois conjun- 
tos de dois pontos cada um e se as dis- 
tancias em coordenadas entre eles fo- 
re m iguais, a distantia entre dois pontos 
na vertical aparecera' no video maior 
que aquela entre os pontos horizontals. 
Isto significa que, se definirmos anali- 
ticamente um quadrado, ele aparecera* 
no video como um retangulo. Nosso 
programa corrige este problema multi- 
plicando as coordenadas horizontals por 
2,38. Isto por que o ponto no video do 
DGT-100 tern o lado horizontal 2,38 ve- 
zes menor que o vertical, o que defor- 
ma as figuras se a correc;ao nSo for feita. 

Com esta adaptacio, o maior valor da 
coordenada horizontal 6 de 53 (53 x 
2,38 = 126,14). A coordenada vertical 
tern seu valor miximo igual a 41. Por- 
tanto, as figuras que voce vai desenhar 
estarao projetadas num piano de 53 po- 



sifoes horizontals por 41 verticals. Uma 
boa provide ncia sera, pois, arranjar um 
papel quadriculado e marcar riele estas 

dimensOes. 

video do DGT-100 possui 48 po- 
si?5es na vertical (resolucao de 6.144 
pontos. N6s adotamos o hmite miximo 
de 41 posicOes porque reservamos as 
duas ultimas linhas inferiores para o dis- 
play de instru^es. Elas, portanto, na"o 
afetara"o o espa^o reservado aos dese- 
nhos. 

Ao rodar o programa, algum tempo 
sera* consumido com calculos e com o 
display de figuras. Assim que isto ter- 
minar, o microcomputador poderdrece- 
ber novas instr^Oes. Voce" saberi quan- 
do chegar o momento. Um ponto na 
parte inferior esquerda aparecera" piscan- 
do. Para dar continuidade, com introdu- 
$Sq de novas instructs, tecle a barra de 
espafo. Se voce quiser deixar um dese- 
nho no video indefinidamente, 6 s6 n5o 
apertar a barra de espaco e o programa 
ficara' em loop. 

DESCRICAO DO PROGRAMA 

Ao ser iniciado, o programa passara 
das linhas 5 e 10 para a 205. Aparecera 
no video o nome do programa e o do 
autor (nao se esque?a de nos fazer esta 
referenda ao digitar a Iinha 210). Ao fi- 
nal desta apresenta^So, o programa se 
desloca para a sub-rotina da linha 15. 
Um ponto Heard piscando no lado es- 



querdo inferior do video. Ao teclar a 
barra de espaco, o programa sai do loop 
e voce* vera aparecer o seguinte menu: 
1-DESENHAR, 2-APAGAR PARTE, 
3-APAGAR TODO. Eseolha uma des- 
tas opf5es. A segunda (voce* vera* um 
exemplo de seu uso mais I frente) ser- 
ve para apagar uma figura ou parte dela 
quando existe mais de uma no video, 
permitindo fazer uma correfSo its vezes 
necessaria. A terceira apaga fodo o vi- 
deo para recomefar outros desenhos. 

No caso das op90es 1 e 2, a instru- 
ct seguinte t COMPRIMENTO?. Voce 
dever& entao digitar o comprimento (ta- 
manho horizontal) da figura. O proge- 
nia verificari se este comprimento 6 
maior que 53. Se for, aparecera* o co- 
mentario PARAMETRO INCOMPATI- 
VEL e sera' novamente solicitada a espe- 
tificacJTo do comprimento. Esta avalia- 
cSb de diferentes parametros de entrada 
visa a evitar que a figura tenha dimensOes 
que nSo caibam no video, o que acaire- 
taria um erro de overflow. 

Em seguida, deve-se informar a AL- 
TURA (lembre-se de que ela nSo podera" 
ser maior que 41). A especificaca"o se- 
guinte € PROFUNDIDADE. Se ela im- 
plicar em dimensOes nlo compativeis 
com a area do video, o programa retor- 
nara a linha 245, comegando novamente 
com o COMPRIMENTO. Voce podera* 
entSo reespecificar as duas primeiras di- 



mensOes da figura, ou entao manti-las, 
alterando a PROFUNDIDADE. 

Finalmente, sera solicitada a coorde- 
nada X do ve*rtice 1 da figura, assim co- 
mo a coordenada Y. O ve'rtice 1 sera 
sempre o da extremidade inferior es- 
querda da figura, seja ela um volume, 
um quadrado, um retangulo ou ainda 
uma linha. 

Estas coordenadas posicionara"o a fi- 
gura no video e, como no caso dos para- 
metros anteriores, serifo tambe'm verifi- 
es das, senffo provocarao um erro de 
overflow. Se isto acontecer, aparecera' 
antes a mensagem PARAMETRO IN- 
COMPATJVEt. e voce, padiua novamen- 
te indicar as coordenadas do ve'rtice 1 . 

Se tudo correr bem, a figura deseja- 
da aparecera no video e o ponto do lado 
esquerdo inferior voltara' a pis car. Te- 
clando a barra de espago, o programa 
volta a linha 220 e voce podera come car 
de novo com uma das opgOes do menu 
initial: I -DESENHAR, 2-APAGAR 
PARTE, 3-APAGAR TUDO. Se for es- 
colhida a primeira, outra figura podera 
ser desenhada,aparecendo no video jun- 
to com a anterior, e assim sucessivamen- 
te. 

POR ETAPAS 

Agora vamos a uma aplicaca'o pritica. 
Antes, pore'm, ser& necessdrio digitar o 
programa. Preste muita atenca"o ao fazer 
isto, pois, se for cometido um erro co- 



mo esquecer um ponto e virgula (;), se 
voce trocar os nomes das variaveis ou 
copiar errado o numero de uma linha 
numa instrucao GOTO ou GOSUB, o 
programs nfio funaoiiara como. deve e 
aiguns destes enganos nao farSb aparecer 
uma mensagem de erro (como no caso 
do esquecimento de um parentese), tor- 
nando dificil achar onde o erro foi co- 
metido. 

O nosso exemplo de apUcacfo se 
comport de 12etapas: 

Etapa 1 

• escolha a opcao 1 , DESENHAR 

• esperifique axoxapamenlfl igual a. 1 4 

• altura igual a 20 

• profundidade igual a 14 

• coordenada X do ve'rtice 1 igual a 20 

• coordenada Y do ve'rtice 1 igual a 14 



Aparecera' no video um paralelepi- 
pedo em perspectiva. Espere o ponto do 
canto do lado esquerdo inferior piscar e 
tecle a barra de espa?o. 


Etapa 2 

• opcao 1 • 

• comprimento 14 • 

• altura 14 • 


profundidade 14 

X=10 

Y=4 



Agora aparecera no video um cubo 
na frente do paralelepipedo. Parte do 
desenho da primeira figura esti pene- 
t ran do a a* re a da segunda. Isto pode na"o y> 
ser desej^vel — vamos enta*d corrigir. ,->, 



N0SSA PR0XIMA EDIQA0 IRA 
AGRADAR A GREG0S E TR0IAN0S! 



Temos certeza que vocS ira gostar do numero 31 de MICRO 
SISTEMAS, edicao de abrit, pois ele tern de tudo para todos. Di s6 uma 

olhada nesta previa: 



• Prog ra mas de aph cacao domSstica. 

• Controte de despesas 

• Orcamento domSstico 

• Mini editor de textos 

• Caiculo do cic/o firtii da mulher 



• Artigos gerais: 

• Precisao de caiculo s em BASIC 

• Como manipular os bits 

• Otimizacao de prog ra mas em BASIC 



' £ ainda: varios programas na area de Matematica e, para re/axar, um 
emocionante Jogo de Batalha Naval para a linha Sinclair. 



Para os radioamadores tambe'm tern. A Rodada MS apresenta 

o Professor Picaoau, programa de Roberto Quito 

de San t' Anna para aprendizagem e treinamento de telegrafia. 



vVKgto 
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DESENHE EM PERSPECTIVA 



Etapa 3 


• 


op ? ao 2, APAGAR PARTE 


• 


comprimento 14 


• 


altura 14 


• 


profundidade 14 


-• 


X=10 


• 


Y=4 



Voce apagou a segunda "figura, o 
cubo Vamos agora apagar as partes da 
pnmeira que estavam dentro do cubo. 



Etapa 4 

• opcao 2 

• comprimento 

• altura 11 



profundidade 

X=20 

Y = 14 



Etapa 5 

• opcao 2 

• comprimento 11 

• altura 



profundidade 

X=20 

Y=14 



As linhas do paralelept'pedo que esta- 
vam dentro do cubo foram apagadas. 
Preste aten^ao no seguinte: uma flgura 
sem compnmento e profundidade e so 
com altura e uma linha vertical; uma fi- 
gura sem altura e profundidade e so com 
comprimento 6 uma linha horizontal, 
Quando a op^ao 2 foi feita,o programa 
dirigiu-se para a sub-rotina da linha 50 
que resseta, ou seja, apaga a figura cor- 
respondente. Vamos agora redesenhar o 
cubo. 



voce e seu 
micro 




Um relacionamento assim merece 
um programa exclusive 

• A Informatic Service desen- 
volve programas conforme 
suas necessidades. 

• Presta-lhe total assistencia 
atraves de uma Assessoria 
de Sistemas exclusiva. 

• Promove a relacao 

Ho mem -Software - Maquina 
de forma perfeita. _ 



Consulte-nosainda hoje. 

INFORM A TIC SER VICE DO 

BRASIL 

Av. 1 3 de Maio, 47 - grupo 2707 

tone: (021) 262-8769 - RJ 



Perspectivas Cavaleiras 

5 CLS 

10 GOTO 205 

15 A$=INKEY$:IF A$=" " THEN RETU 

RN 

20 SET (0,4 3) : GOSUB 35 

25 RESET(0,43) :GOSUB 35 

30 GOTO 15 

35 FOR T=0 TO 25:NEXT: RETURN 

40 PRINT@896,CHR$ { 30) ; : PRINT: PRI 

NT@897, ""; : RETURN 

45 SET( (A*2.38) , (41-B) ): RETURN 

50 RESET! {A*2. 38) , (41-B) ): RETURN 

55 CLS: RETURN 

60 GOSUB 40: PRINT "PARAMETRO INC 

OMPATIVEL"; :GOSUB 15:GOSUB 40:RE 

TURN 

65 A=A1:IF B2>B1 THEN S=l ELSE S 

=-1 

70 FOR B=B1 TO B2 STEP S 

75 ON D GOSUB 45,50 

80 NEXT:RETURN 

85 B=B1:IF A2>A1 THEN S=l ELSE S 

=-1 

90 FOR A=A1 TO A2 STEP S/3 

95 ON D GOSUB 4 5,50 

100 NEXT: RETURN 

105 IF A2>A1 THEN S=l ELSE S=-l 

110 FOR A=A1 TO A2 STEP S/3 

115 B=(((B2-B1)/(A2-AD) *(A-AD) 

+B1 

120 ON D GOSUB 45,50 

125 NEXT: RETURN 

130 X(1)=XE:X(2)=X(1) tX(5)-X(l)i 

X<6)=X(1) 

135 X(3)=X(1)+C:X(4)=X(3) :X(10)= 

X(3) :X(11)=X(3) 

140 X(7)=X(1)+P/2:X(8)=X(7)+C:X( 

12)=X(8) :X(9)=X(8) 

145 Y(1)=YE:Y(4)=Y(1) :Y(5)=Y<1) : 

Y(10)=Y(1) 

150 Y(2) =Y(1)+H:Y(6)=Y(2) :Y(3) =Y 

(2) sY{ll)=Y(2) 

155 Y(7)=Y(2)+P/2:Y(8)=Y(7) :Y(12 

)=Y(7) 

160 Y(9)=Y(1)+P/2:RETURN 

165 FOR N=l TO 11 

170 Al=X(N) :A2=X(N+1) :B1=Y(N) :B2 

=Y(N+1) 

175 IF A1=A2 THEN GOSUB 65 ELSE 

165 

180 GOTO 200 

185 IF B1=B2 THEN GOSUB 85 ELSE 

195 

190 GOTO 200 

195 GOSUB 105 

200 NEXTiRETURN 

205 PRINT CHR$(23) 

210 PRI NT@2 5 6, "PERSPECTIVA" :PRIN 

T"CAVALEIRA": PRINT: PRINT "PROGRAM 

A DE" : PRINT" JORGE R. DANTAS" 

215 GOSUB 15:CLS 

220 CLEAR 

225 GOSUB 40:INPUT"1-DESENHAR, 2 

-APAGAR PARTE, 3-APAGAR TUDO";D 

230 IF D=3 THEN GOSUB 55 ELSE 24 



235 GOTO 220 

240 GOSUB 40:DIM X{12),Y(12) 

245 INPUT "COMPRIMENTO" ;C 

250 IF C=>53 THEN GOSUB 60 ELSE 2 

60 

255 GOSUB 40:GOTO 245 

260 GOSUB 40:INPUT"ALTURA";H 

265 IF H>41 THEN GOSUB 60 ELSE 2 

75 

270 GOTO 260 

275 GOSUB 40:INPUT"PROFUNDIDADE" 

;P 

280 IF C+P/2>53 OR H+P/2>41 THEN 

GOSUB 60 ELSE 290 
285 GOSUB 40:GOTO 245 
290 GOSUB 40:INPUT"COORDENADA X 

DO VERTICE 1";XE 

29 5 GOSUB 40:INPUT"COORDENADA Y 
DO VERTICE 1";YE 

300 T=XE+C+P/2:V=YE+H+P/2 

30 5 IF T>53 OR V>41 THEN GOSUB 6 
ELSE 315 

310 GOTO 29 

315 GOSUB 40:GOSUB 130:GOSUB 165 

320 GOSUB 15:GOTO 220 



Etapa 6 

• opcao 1 • 

• comprimento 14 • 

• altura 14 • 



profundidade 14 

X=10 

Y=4 



Agora sim: voce tern o cubo na fren- 
te do paralelepipedo sem que as figuras 
se interpenetrem. Vamos enta"o desenhar 
figuras planas. 



Etapa 7 






• opc,ao 1 


• 


profundidade 14 


• comprimento 14 


• 


X=30 


• altura 


• 


Y=4 


Etapa 8 






• opclo 1 


• 


profundidade 14 


• comprimento 


• 


X=l 


• altura 14 


• 


Y=4 



A etapa 7 desenhou um quadrado em 
perspectiva na horizontal (altura =0) e 
a etapa 8 um quadrado na vertical (com- 
primento =0). Vamos agora desenhar li- 
nhas. 



Etapa 9 

• opqSo 1 • 

• comprimento 14 • 

• altura • 



profundidade 

X=l 

Y=34 



Etapa 10 

• op^ao 1 

• comprimento 

• altura 14 


• profundidade 

• X=44 

• Y=23 



Etapa 1 1 

• opcao 1 

• comprimento 
t altura 


• profundidade 20 

• X=40 

• Y=14 



Estas etapas (9, 10 e 1 1) desenharam, 
respectivamente, uma linha horizontal, 
uma vertical - ambas paralelas ao piano 
de projecao (o video) - e uma linha dia- 
gonal, que 6 a projecao de uma linha 
perpendicular ao piano de projecao. 
Lembre-se de que, neste ultimo caso, o 
tamanho da linha no video sera igual a 
metade da profundidade, Portanto, 
quando voce quiser um certo tamanho 
no video, defina como profundidade o 
dobro dele. 

Finalmente a etapa final desenha um 
ponto, uma figura que nao tern compri- 
mento, altura e nem profundidade. 



Etapa 1 2 

• op^ao 1 

• comprimento 

• altura 



profundidade 
X=49 

Y=32 



Agora, para lazer seus prop no s dese- 
nhos, tecle a barra de espaco e escolha a 
opcao 3-APAGAR TUDO. Boa sorte! B 



Jorge de Rezende Dantas 4 arquiteto urbanis- 
ta, doutor pela Universidade de Paris I e pro- 
fessor livre docente de Arquitetura e Urban is- 
mo da Universidade de Sao Paulo — FAUUSP. 
Vem realizando pesquisas no campo de mode- 
los urbanos e software apticativo para as areas 
de Arquitetura e Urbanismo. 



Para quern utiliza graficos demonstratives para analise de frequencia, 
um programa que gera um histograma nos micros da linha Sine lair 



Histograma: 
examine resultados 



Frequentemente necessitamos a- 
nalisar dados recolhidos de uma 
amostra a fim de verificar se a 
distribuicao se aproxima de 
uma distribuicao normal ou na"o. Como 
exemplo. podemos citar os erros de me- 
dida de uma determinada peca fabrica- 
da em serie, as notas de uma turma de 
alunos etc. 

Para isto, podemos lancar mao do 
histograma, no qual plotamos a variavel 
no eixo das abscissas e a frequencia 
dela no eixo das ordenadas, Evidente- 
mente, os valores assumidos pela varia- 
vel devem ser agrupados em classes, por 
exemplo: as notas de 3,5 a 4,5 sao agru- 
padas num unico retangulo do histogra- 
ma. 

As aplicacoes de um histograma sa"o 
as mais variadas possiveis. Ilustrando 
uma delas, trazemos aqui um programa 
que foi idealizado, em principio, para 



Luis Peres Azevedo 



notas de alunos, o qual roda nos equipa- 
mentos da linha Sinclair. Podemos tra- 
balhar com ate" 1 50 notas, e o programa 
fornece a m^dia da turma e o desvio 
padrSo da mesma. 

Inicialmente, as notas sa"o colocadas 
em um array X(I) e, logo apos, ordena- 
das de a 10. A linha 129 arredonda as 
notas, agrupando-as em classes, e a hnha 
2?5 dimensiona a variivel indexada 
C(TN) em fun9ao dos TN alunos - esta 
varidvel e incrementada cada vez que 
encontramos notas iguais (linha 220). 

Na linha 238 e gerado um retangulo, 
construi'do com a funcao PLOT. A par- 
tir da linha 240, e" calculada a media da 
distribuicao e, na linha 320 € calculado 
desvio padrSo, atraves da seguinte for- 
mula: 



DP ** 



1 (x-X) 2 
n 



onde x i a nota, X & a media, f e a fre- 
quencia e n numero de notas. 

A sub-rotina que comeca na linha 
8990 gera os eixos, marcados de a 10 
na horizontal e graduados de 5 em 5 
na vertical. Ja a que comeca na linha 
9000 € uma auxiliar da ordenacao das 
notas ( sub-rotina de troca). 

Voce podera modificar programa 
facilmente, adaptando-o para casos es- 
pecificos. Para arquivar os dados, basta 
digjtar S (neste caso, para restaurar 
programa sem a perda dos dados, utili- 
ze LOAD "HISTOGRAMA"). Para lim- 
par arquivo e plotar outro histograma. 
pressione ENTER ou NEWLINE. 



Luis Peres Azevedo e engenheiro eletricis- 
ta pela UFRJ desde 1979 e professor univer- 
sitdrio de Computagao e de Eletronica. E 
tambem um dos diretores da Microide'ia Sis- 
temas, EducacSo e Inform&tica L tda. 



100 
105 
110 


REM HISTOGRAMA 

FAST 

PRINT "NUMERO DE NOTAS: "; 








335 LET DP=SQR (DP/TN) 
340 PRINT AT 1,2; "DESVIO 
: ";DP 


PAD RAO 


" 


Histograma 




112 


INPUT TN 








350 


DTUf 




114 


PRINT TN , , , 


205 


DIM C(TN) 




8000 


FOR 1=2 TO 43 




115 


DIM X{TN} 


210 


FOR 1=1 TO TN 




8005 


PLOT 2,1 




120 


FOR 1=1 TO TN 


215 


FOR J=I+1 TO TN 




8010 


NEXT I 




122 


IF I>20 THEN SCROLL 


220 


IF X(I)-X(J] THEN LET 


C(I) = 


8030 


FOR 1=2 TO 47 




125 


PRINT "NOTA ";I;":";TAB 9; 


C(I}+1 




8040 


PLOT 1,2 




126 


INPUT X<I) 


225 


NEXT J 




8050 


NEXT I 




127 


IF X(I)>10 THEN GOTO 126 


230 


PLOT 4+(X(I)*100/24.5) 


,C(I) 


8060 


FOR 1=0 TO 9 




128 


PRINT xm 


+2 






8070 


PRINT AT 21,1*2+2; I 




129 


LET X(I)=INT (X(I)+0.5) 


235 


NEXT I 




8080 


NEXT I 




130 


NEXT I 


240 


LET y=o 




8090 


PRINT AT 21, 22; 10 




140 


FOR 1=1 TO TN 


250 


FOR 1=1 TO TN 




8100 


FOR 1=7 TO 43 STEP 5 




150 


LET CH=0 


260 


LET Y=Y+X(I) 




8110 


PLOT 1,1 




160 


FOR J=l TO TN-1 


270 


NEXT I 




8120 


NEXT I 




170 


IF X(J)>X(J+1) THEN GOSUB 9 


280 


LET Y=Y/TN 




8150 


RETURN 




000 




290 


PRINT AT 0,10; "MEDIA: 


";Y 


8200 


STOP 




175 


NEXT J 


300 


LET DP=0 




9000 


LET V=X(J) 




180 


IF CH=0 THEN GOTO 190 


310 


FOR 1=1 TO TN 




9005 


LET X(J) =X(J+1) 




185 


NEXT I 


320 


LET DP=DP+( (ABS (X(I)- 


Y) )** 


9010 


LET X(J+1)=V 




L90 


CLS 


2)*C(I) 




9015 


LET CH=1 




200 


GOSUB 8000 


330 


NEXT I 




9020 


RETURN 


m 
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FICCAO 



r-- 



Numa sala de aula do futuro, 
urn ironico inspetor repreende seus alunos. .. 



NOVO CP 300 PROLOGICA. 



Bronca cibernetica t 

1 



Luiz Bessaf *} 



Meus distintos e esti- 
mados alunos, antes 
de comefarrnos nos- 
sas aulas de hoje, gos- 
taria de Ihes transferir o recado envia- 
do pelo nosso diretor: 

Cada um desses consoles individuals 
representa a pressuposta ponte que liga 
a maravilha tecnica do Banco de Dados 
de todo o conhecimento humano com 
outra maravilha da natureza, que 6 a 
maior aproximacao teorica e pratica do 
vacuo absoluto, e os senhores sabem 
exatamente a que me refiro, Tenho 
ate a impressao de que, quando Sa- 
muel Beckett, o ilustre irlandes, escre- 
veu que "tua mente, nunca muito ati- 
va em tempo algum, o esta agora mui- 
to menos do que nunca", estava com 
voces na mente e no coracao. 

No tempo dele, os alunos sentavarn- 
se em carteiras ou bancos escolares e 
eram obrigados a escrever tudo sem 
qualquer recurso audiovisual e con tan- 
do somente com livros e cadernos de 
apontamentos. Hoje, no lugar de car- 
teiras, os senhores possuem computa- 
dores e nao mais e preciso trazer livros 
ou cadernos de casa, ja que todas as 
anotacoes sa"o feitas em meio magnetico 
entre os terminals da escola e o domes- 
tico. Eventualmente 6 necessario trans- 
portar um trabalho, mas isto e feito 
em disquinhos de 1 Megabyte nao 
maiores que moedas. 

O disco desta semana, aJem de 
todo o material didatico 
auxiliar incluindo avisos, re- 
comendacoes, exercicios so- 
bre linguagem, ainda inclui um dicio- 
nario mitologico, a Odisseia do velho e 
bom Homero, belamente comentada, o 
Ulisses de Joyce, cn'ticas e anotacoes, 



licoes de solfejo para a turma B de 
Musica e cinco aulas de Alemao, onde 
os senhores verao de novo a popular 
Frau Bertha fazendo biquinho em 
close todas as vezes que pronuncia um 
U tremado . 

Na vida, no entanto, tudo tern seu 
pre^o. E cada aparelho destes, embo- 
ra doados a comunidade, custa uma 
permanente pequena for tuna para in- 
cremento e manutencao. Assim, seria 
de se esperar que os senhores tratas- 
sem seus terminals com mais carinho. 
Carinho, gratidao e respeito, pois foi 
atraves deles que aprenderam tudo o 
que se supoe que sabem, desde o curri- 
culo formal - e este eu ponho em du- 
vida — ate toda a sorte de inconfessa- 
veis pa tif arias representadas pela fabu- 
losa quantidade de cultura alternati- 
va que conseguiram armazenar ate 
hoje. 

■ ■7 stes instrumentos, e bom lem- 
I j brar, sao propriedade da escola 
m * e, portanto, Coisa Publica, 
■ tJ assim como os terminals do- 
mesticos em que deveriam ser feitos os 
trabalhos de casa. Eu acho que os se- 
nhores ainda nao conseguiram fazer a 
mais leve ideia do que significa o custo 
de tudo isto, especialmente as can'ssi- 
mas telas holograficas coloridas de alta 
resolucao. 

Ocorre, lament avelmente, que nesta 
sala, e somente nesta sala, em apenas 
uma semana, foi preciso substituir 
quatro tubos queimados sem qualquer 
possibilidade de recuperacao. 

Assim, meus diletos e dedicadissi- 
mos anjos, acho extremamente reco- 
mendavel ouvir conselho deste velho 
inspetor. Se optarem pela negativa, 
o primeiro patife que for apanhado 



acendendo cigarro usando a tela em 
luminosidade maxima com aquele pro- 
graminha CAD de Fisica para desen- 
volver lentes blconvexas de Frenel, 
vai se dar muito mal. No menu que 
pessoalmente preparei para infeliz, 
ha duas semanas de suspensa'o, blo- 
queio de todas as atividades de lazer 
do terminal domestico e exames medi- 
cos e psicologicos para os fu mantes. 
■ m , para nfo perder o prestigio 
Ma de carrasco e outras adjetiva- 
m » coes de uso menos familiar 
JH V com que os senhores distin- 
gue m a mim e alguns dos meus familia- 
res mais proximos, enviarei para os res- 
pectivos papaizinhos as contas das pe- 
$as repostas. mao-de-obra e os recibos 
dos medicos e psicologos. Todos os 
recibos, incluindo os destes dois ulti- 
mos profissionais e que costumam ser 
bastante salgados, serao emitidos pelo 
programa NDIR, muito apreciado 
Nao Dedutivel do Imposto de Renda, 
que todos os pais adoram receber. 

Agora, depois desta confratemiza- 
cao, eu vou confratemizar com a tur- 
ma da sala ao lado e os senhores tera~o 
sua aula de Estruturacao Anali'tica das 
Linguagens, com ADA para o prato 
do dia. E uma ultima coisinha: engra- 
cadinho que trocar o nome da filha 
de Lord Byron, de Ada para Linda 
Lovelace, ainda vai receber um pre mi o 
extra. . . ■ 



(*)Luiz Bessa 4 o pseudonimo literirio do 
professor Amelio Pinto Ribeiro, tivre docen- 
te em Angiotogia pela UFRJ e diretor de 
publicacoes da Sociedade Brasileira de An- 
giotogia. O Dr. Ame'lio trabaiha com compu- 
tadores desde 1980 e possui tris microcom- 
putadores. 
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CEHTRALDATA 

[ii. t hiitmlittn Uh. 



SUPRIMENTO E COISA SERIA 

• Matenha seu compulador bem alimentado adquirindo produtos de qualidade consagrarfa. 



Discos Magnetos 5 Mb. 16 Mb. 80 Mbeic 
Diskettes 5 1/4, e 8 Polegadas — Simples e Dupia Face 

ETIQUETAS PIMACO -PIMATAB 
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• FitaMagnetica:600. 1200e2400Pes 

• Fila C ARBOFITAS p/lmpressoras Globus M 200 — B 300/600 

• Fila p/lmpressoras: Elebra, Digilab. Diablo. Centronic etc. 

• Cartucho Cobra 400 

• Pastas e Formularies Continues. 



MICRO SISTEMAS, marfo/84 



Opequeno 
grande micro. 

Agora, na hora de escolher entre um 
microcompuEador pessoal simples, de facil 
manefo e um sofisticado microcomputador 
prolissional. voce pode licar corn os dois. 
Porque chegou o novo CP 300 Prolog ica 
novo CP 300 tern preco de 
microcompuEador pequeno. Mas memoria I 
de microcomputador grande. 

Ele ja nasceu com 64 
^ kbytes de memoria 
s^ ^ interna com 
possibilidade de 
expansao de memo- 
ria externa para ate 
quase 1 megabyte 
E tern um teciado prolissional, 
que da ao CP 300 uma versatilidade incrivel. 
Ele pode ser uttlizado com programas de 
lita cassete, da mesma maneira que com 
programas em disco. 



^B^TT ^« 



O unico na sua faixa que ja 
nasce com 64 kbytes de memoria. 




Podt tar 
acoplado a uma 

impres&rjra 






Cornpahvol corn 

programas em lila 
cassele ou em rjiico. 



Pode ser ligado ao seuiparelho de TV, da 
mesma lorma que no terminal de video 

deuma grande empress 
Com o CP 300 voce pode 
fazer conexoes lelefSnicas 
para co]eta de dados, 
se utilizar 
deuma 
impressora 

e ainda dispor de todos 
os programas exislentes 
para CP 500 ou o 
JSSSt TRS-BO americano E o que e melhor: 
'voce eslara apfo a operar qualquer 
oulro sislema de microcomputador. 

Nenhum outro microcomputador pessoal 
na sua faixa tern tantas possibilidades de 
expansao ou desempenho igual, 
CP 300 Prologica 

0s ounos nao ■■■ PROLOGICA 

lazem o que ele faz. | b ^crocomputadores 

pelo preco que ■■■ 

ele cobra, MS! *• Ene'iincnnHMMh n« -y 



Permiie 



Pode ser ho ado 
a um lelevlsor camum 
ou aum soflstlcattD 
Lermirul de video. 



fl£ Unv *0£« tBC j(|O 
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MiJUui • 234-T045 
•&H-£ii«dc 24r.S56i 
•C£-fortaiua ■ 226-Oflih - Z44-244H 
■DF-SfU':<4 • ^26-15^3 - ^^W^ * ES-V;i4 WH 
2JM3&T - Vilflf.J ■ £22-WS1 * GO-Gaita - a*-70g6'MT 
Cuiabl -3Z1-3307 ■ HS-C*T» Qrjnik ■ 383 12 ?0 ■ Dourutos ■ «1 -10M 
■ MG-Beio Hciiigiite - 23M388t • BEflim ■ 531 -3SQ6 - Ce 1 Fibf icuro ■ B* i 540Q Ju=: 
!Fori ?^9Qtt-tMtiNlil-2tt-iDK»PABFifcit 228-OOlT -Pfl^Casca** ^-Ii3fl-Cun- 
ra» !2+Kt6-J24J4a F«03 l^ncu ■ 73:373* - Lcm»iru ■ 23-0065 > P£-Hic>to -221-D14- Pl-F«iisirv 
■fi&« RiCjmpm - 22-3M 4 ■ An- dt Jamm - 264-S7*? - 2S3-33» ■ fit-lffl* (iN-r^ui - m-'Sl M * BSCn.* do 
ul - fi1-3fit6 - Pfijlas - 22-«l* ■ PMlB A*gift • n-i&ti 240311 - SWU Rflii - S.12-1399 - Rrj-PfjrlD VWt^i - 221-2656 *Sf 
Bar-elps - rf-B*11 - Cjmo-nK - ?-44^3 ■ JuihUi ■ 43J-W2",? - Mar.-j - 33-50W - H W d»ClU» > 469-6640 - Fir«,qjfcl • JH-ltJO ■ RiOeififl 
Pm - 625-5K6 - 636-1 1» - Sto Jaqyim to 8ana - J28-?^2 - S*o iow *» Q^m - B-TU 1 ■ 22-4740 - Sto Jo* do R a ftelo 32 2&42 S*1m - 33'22» 
&oau - 33-7794 ■ SC-iTTinwfc ?2-6?" - Crypcfc - ?2 fflBf . Cmtna - 31-2C04 ■ Fioparopo^ ■ 22-362? ■ jaiMt • 33-7S26.SEAoam ■ 2W x3lfi 




Solicits 
demonstratSC 
not principAis 
magaiin**. 
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/igw voce cam a meinor 
iniciagaoem 
mfcrocomputagdo 
queexiste. 

O TK B3 \6 en s i new mol 1 de 2 mllhBas de pessoas . 

£/# e myito focltde operor Uso o Basic e a memoWo chega 
ale 64 Kbytes. eoteJIamop^for, Jmpreswraefoysf^ 

Num Ins fan f© »/or^ 1/0/ estoFresoh^abprobJeroQS 
orogfomondo, ou vencencb os muf los /ogas dfsponf yeis, O 
fK S3 n5o e 5(5 murhor injdaeSo, Tomtom 6 a mafs dlvertlda 



t voc&ja apffca 
seusconheci 

Com o IK 85 voce tomJb6m podv se diverftr muito 
n dvzenas d& logos, disponivetz . 
Mas ete \6 e rrw i 1 tfwar e J 6 pr , 

guogens Baslr e ^ *n jc/o fipo mdfj- 

rever. com 40 fcfc/oi * 16? =.. F6ou4ffKde 

mor fa J?AM ( e 10 de #GM Gravac So em high-speed, 
mfdo Verify, para motors egi/ronca. 
Qvando voc& \6 esiiver apriUonodo pot 
mt&ocomputatdo. eh mi corresponder totplmente 



TK2QOO 
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AOCKOOfSt* 



Aquivoc&mc 
tuitooquesa 



O TK 2000 Co/or fern ludo que os 
me/bores macros 'em, Menos oprefo 
A ce/ to dn k e ess of a , 

Inferfotej, of for. 
poaVnrJoaer Uqatioaomo TV 
tx/P&B Tern 64 k de memorio RAM p 
\6kde memorla ROM. Com exc* 
— f$wut& ■■<*/. 

Vote pom* moslror ludo qui 
em proefsor moslror motto dinhe 
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